Тупичек:( Надо из окна IE взять адрес(URL)?

← →
Владик_1 (2002-12-25 13:47) [0]

Найти нужный хендл я могу. Даже функцией GetWindowText могу узнать… сами понимаете что. А дальше тупичек...

← →
Song (2002-12-25 14:29) [1]

GetWindowText() может взять текст только из окон своего процесса.
Используйте WM_GETTEXT

← →
Владик_1 (2002-12-25 14:41) [2]

Яндекс знает все. Буду пробовать. Если кому интересно...
http://www.sources.ru/delphi/delphi_grab_url_from_ie.shtml

← →
Opuhshii (2002-12-25 15:06) [3]

Uses SHDocVw....

var
I:Integer;
SW:Variant;
begin
SW:=CoShellWindows.Create;
for I:=1 to SW.Count-1 do begin
Showmessage(SW.Item(I).LocationURL);
end;
end;

пример получения Title,..
Showmessage(SW.Item(I).Document.Title);

вот,...

← →
Reindeer Moss Eater (2002-12-25 15:08) [4]

GetWindowText() может взять текст только из окон своего процесса.

Вовсе нет. Это справедливо только для одного единственного класса окон.

← →
Dimast (2003-01-08 04:23) [5]

var
S : String;
wHandle: HWND;
begin
wHandle := FindWindow("IEFrame", nil);
repeat
wHandle := FindWindowEx(wHandle, 0, "WorkerW", nil);
until isWindowVisible(wHandle); // несколько их там, невидимых
wHandle := FindWindowEx(wHandle, 0, "ReBarWindow32", nil);
wHandle := FindWindowEx(wHandle, 0, "ComboBoxEx32", nil);
Memo1.Lines.Add(IntToHex(wHandle, 8));
SetLength(S, 1000);
SetLength(S, SendMessage(wHandle, WM_GETTEXT, 1000, integer(@s[1])));
Memo1.Lines.Add(s);

← →
Владик_1 (2003-01-16 17:50) [6]

Все было замечательно, НО FindWindowEx на 2000 отказалась работать. Да и в ее описании есть что НТ не поддерживает.

По ряду причин воспользоваться способом Opuhshii © (25.12.02 15:06) не могу.

Пробовал комбинировать GetWindow, GetClassName.
Пока тупик...

← →
Владик_1 (2003-01-16 17:54) [7]

поправка GetWindow :)

← →
Владик_1 (2003-01-16 17:56) [8]

а...все правильно- Пробовал комбинировать GetWindow, GetClassName.

Замахался уже:)

Тупичек:( Надо из окна IE взять адрес(URL)? Найти похожие ветки