Вниз
Скачать: CL | DM;

Тупичек:( Надо из окна 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.

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
3-16876
dimich1978
2003-02-18 08:37
2003.03.06
Извиняюсь за оффтопик, но что-то неладное с DBChart


1-17030
Checist [root]
2003-02-25 10:14
2003.03.06
Поиск файла в сети


3-16898
VIB
2003-02-14 16:34
2003.03.06
Тип поля


3-16927
Itap
2003-02-14 16:24
2003.03.06
Я уже не знаю что делать


6-17250
Infinity
2003-01-19 15:38
2003.03.06
TClientSocket в Delphi 7




   Наверх