[icsander]

Сообщение от Сергей77

Задача свелась к простому узнаванию URL, который грузит окно.

Знает кто-нибудь, как, зная дескриптор окна, получить URL этого окна (строки с адресом нет), который грузится внутри этого окошка - оно ведь как то запрос делает (если нажать на правую клавишу и посмотреть свойства, то там прям есть Адрес URL и его значение --- то есть может как то до свойств она добраться можно)?

Читайте DRKB !

Код:

uses windows, ddeman, ......
function 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);
begin
showmessage(Get_URL('Netscape'));
    или
showmessage(Get_URL('IExplore'));
end;