Пивет всем!
Я где то давно нарыл этот покарёженный текст!
Люди погите плз отловить появления нового окна IE и взятия от туда url эта прога должна реализовать взятие URL, но у меня она не пашет!

Function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin

TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;

function GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin

ie := FindWindow(pchar('IEFrame'),nil);
worker := FindWindowEx(ie,0,'WorkerA',nil);
toolbar := FindWindowEx(worker,0,'rebarwindow32',nil);
comboboxex := FindWindowEx(toolbar, 0, 'comboboxex32', nil);
combo := FindWindowEx(comboboxex,0,'ComboBox',nil);
edit := FindWindowEx(combo,0,'Edit',nil);
toolbarwindow :

result := GetText(edit);
{-------------------------------------------------------}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(GetURL);
end;

Используй COM.

А можешь написать примерчик небольшой?
А то  я не юзал com!

Завтра.

Цитата(Frikazoid @ 13.11.2002, 11:42)

А можешь написать примерчик небольшой? А то  я не юзал com!

Заходишь в наш FAQ, там второй темой идёт работа с COM

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;

Модератор: Название темы должно отражать суть. То что вы хотите чтобы вам помогли и так очевидно. В дальнейшем я буду такие топики стирать.

Цитата(Song @ 14.11.2002, 15:54)

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;

Спасибо!
Класно!
Но не мог бы ты написать ещё какой ни будь пример работы с IE?
К примеру Как забрать текст загружемых страничек, обрабатывать и возращать обратно?

Цитата(Vit @ 14.11.2002, 16:29)

Модератор: Название темы должно отражать суть. То что вы хотите чтобы вам помогли и так очевидно. В дальнейшем я буду такие топики стирать.

Сори! Просто я сташно спешил и не следил за тем, что пишу.
Обычно я нормально топики озаглавливаю!

Цитата(Frikazoid @ 15.11.2002, )

Но не мог бы ты написать ещё какой ни будь пример работы с IE? К примеру Как забрать текст загружемых страничек, обрабатывать и возращать обратно?

Посмотри у нас в FAQ- там большая статья с многочисленными примерами работы с TWebBrowser

Цитата(Vit @ 15.11.2002, 19:05)

Цитата(Frikazoid @ 15.11.2002, ) Но не мог бы ты написать ещё какой ни будь пример работы с IE? К примеру Как забрать текст загружемых страничек, обрабатывать и возращать обратно? Посмотри у нас в FAQ- там большая статья с многочисленными примерами работы с TWebBrowser

Но там нет примера управления чужими окнами IE.

А как с помощью api добраться до текста странички?
До адреса ведь добрались!