Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: 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 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
4-17445
skovorodka
2003-01-18 19:05
2003.03.06
SetWindowsHookEx( всем пойматься и ответить :) )


1-17188
Vadim840
2003-02-24 12:47
2003.03.06
Перенос в мемо


1-17151
LeO U
2003-02-23 13:21
2003.03.06
Проблемы с DLL, Delphi 6 и Windows XP


3-16977
NightCold
2003-02-17 14:59
2003.03.06
Помогите срочно!


1-17104
Opera
2003-02-26 01:34
2003.03.06
Едиты и текст