|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как определить момент запуска браузера?
Задача такова - моя программа висит в памяти и ждет кагда запустится броузер - Explorer или Opera, когда это происходит она спрашивает у пользователь: а кто это запустил хочет в интернет?
Как это сделать в Delphi 7? Зараннее спасибо! |
#2
|
||||
|
||||
Можно сделать прямо в лоб - при момощи FindWindow,
Проверять по таймеру присутствие окон с определенными заголовками... THE CRACKER IS OUT THERE |
#3
|
|||
|
|||
В этом я разобрался, а вот можно ли выдрать с найденного окна содержимое адресной строки?
Задумка такая - програ шукает окна броузера, когда нашла, то слизывает содержимое адресной строки и пишет ее в txt файл. Вообщем следим мы за пользователем интернета. |
#4
|
||||
|
||||
Вот код, который вытащит адрес из активного окна 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; |
#5
|
|||
|
|||
Спасибо, буду пробовать!
|
#6
|
|||
|
|||
Есть Класс TInternetExplorer, c помощью него беспроблем можно оперировать с браузером!
|