Неработающий GetWindowText

← →
programer © (2004-07-13 00:06) [0]

Дарова всем. Скажите plizz, как узнать, какой адрес в IE открыт в ActivPage. GetWindowText показывает, что в строке Адреса ничего нет.

← →
Ertong © (2004-07-13 00:10) [1]

А можно посмотреть код?

← →
programer © (2004-07-13 00:17) [2]

program GetPage;

uses
Windows, SysUtils, Messages;

var
wnd: HWnd;
clas, name: array[0..50] of char;

begin
wnd:=getforegroundwindow;
wnd:=getwindow(wnd,GW_CHILD);
wnd:=getwindow(wnd,GW_CHILD);
wnd:=getwindow(wnd,GW_CHILD);
while wnd<>0 do
begin
getclassname(wnd,@clas,50);
if clas="ComboBoxEx32" then
begin
wnd:=getwindow(wnd,GW_CHILD);
wnd:=getnextwindow(wnd,GW_HWNDNEXT);
wnd:=getwindow(wnd,GW_CHILD);
getwindowtext(wnd,@name,50);
getclassname(wnd,@clas,50);
messagebox(0,@name,@clas,0);
end;
wnd:=getnextwindow(wnd,GW_HWNDNEXT);
end;
end.

← →
Ertong © (2004-07-13 01:03) [3]

var
wnd: HWnd;
clas, name: array[0..max_path] of char;

begin
wnd:=FindWindow("IEFrame",nil);
wnd:=getwindow(wnd,GW_CHILD);
wnd:=getwindow(wnd,GW_CHILD);
wnd:=getwindow(wnd,GW_CHILD);
while wnd<>0 do
begin
getclassname(wnd,@clas,50);
if clas="ComboBoxEx32" then
begin
// getwindowtext(wnd,@name,sizeof(name));
sendMessage(wnd,WM_GETTEXT,sizeof(name),Cardinal(@name));
getclassname(wnd,@clas,sizeof(clas));
messagebox(0,@name,@clas,0);
end;
wnd:=getnextwindow(wnd,GW_HWNDNEXT);
end;
end;

Не знаю почему getwindowtext не пашет, но SendMessage заработало.

← →
programer © (2004-07-13 01:21) [4]

И вправду заработало! Спасибо!

← →
VMcL © (2004-07-13 13:26) [5]

>>Ertong © (13.07.04 01:03) [3]

Наверное, потому что целевое окно в АП другого процесса находится.

> Наверное, потому что целевое окно в АП другого процесса
> находится.

Да, но почему тогда SendMessage пашет?

P.S. Вообще-то в справке по GetWindowText буржуйским по белому написано:
This function cannot retrieve the text of an edit control in another application.

Неработающий GetWindowText Найти похожие ветки