[somlich]

Задача такова - моя программа висит в памяти и ждет кагда запустится броузер - Explorer или Opera, когда это происходит она спрашивает у пользователь: а кто это запустил хочет в интернет?
Как это сделать в Delphi 7?
Зараннее спасибо!

[4kusNick]

Можно сделать прямо в лоб - при момощи FindWindow,
Проверять по таймеру присутствие окон с определенными заголовками...

[somlich]

В этом я разобрался, а вот можно ли выдрать с найденного окна содержимое адресной строки?
Задумка такая - програ шукает окна броузера, когда нашла, то слизывает содержимое адресной строки и пишет ее в txt файл.
Вообщем следим мы за пользователем интернета.

[Decoding]

Вот код, который вытащит адрес из активного окна IE.

Код:

uses
  ..., DdeMan;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    function Get_URL(Servicio: string): String;
  public
    { Public declarations }  
  end;

function TForm1.Get_URL(Servicio: string): String;
var
  Cliente_DDE: TDDEClientConv;  
  temp: PChar;
begin
   Result := '';   
   Cliente_DDE:= TDDEClientConv.Create( nil );
   with Cliente_DDE do   
   begin      
      SetLink( Servicio, 'WWW_GetWindowInfo' );
      temp := RequestData( '0xFFFFFFFF' );
      Result := StrPas( temp );
      StrDispose( temp );
      CloseLink;   
   end;          
   Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin   
   ShowMessage( Get_URL( 'IExplore' ) );
   // ShowMessage( Get_URL( 'Netscape' ) );
end;

[somlich]

Спасибо, буду пробовать!

[flaxe]

Есть Класс TInternetExplorer, c помощью него беспроблем можно оперировать с браузером!