[Admin]

Сообщение от Mr.Frales

Неужели никто не поможет ....

Есть нечто типа этого, как вариант:

Код:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinInet, ExtCtrls, ComCtrls, DDEMan, Registry,
  WinSock, DateUtils, ShellApi;

...

function Get_URL(Servicio: string): string;
var
 Client_DDE: TDDEClientConv;
 temp: PChar;
begin
 Result:='';
 Client_DDE:=TDDEClientConv.Create(nil);
 with Client_DDE do
  begin
   SetLink(Servicio,'WWW_GetWindowInfo');
   temp:=RequestData('0xFFFFFFFF');
   Result:=StrPas(temp);
   StrDispose(temp); // предотвращаем утечку памяти
   CloseLink;
  end;
 Client_DDE.Free;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
 names: TListItem;
 s,urlall,url_op_sk: string;
begin
 try
  url_ex:=Get_URL('IExplore'); // Internet Explorer
  url_op:=Get_URL('Opera');    // Opera
  url_moz:=Get_URL('Firefox'); // Mozilla Firefox

  // проверка на "about:blank"
  if pos('about:blank',url_ex)<>0
  then Exit;
  if pos('about:blank',url_op)<>0
  then Exit;
  if pos('about:blank',url_moz)<>0
  then Exit;

...