Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Тупичек:( Надо из окна 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.039 c
1-17008
Nemo
2003-02-21 02:08
2003.03.06
Помогите, пожалуйста!


14-17357
Siv Soft
2003-02-18 14:37
2003.03.06
TAudio - документация


1-17003
Артём В.
2003-02-24 23:25
2003.03.06
Нужна поддержка скинов


14-17349
Gerakl
2003-02-17 19:40
2003.03.06
VisualBasic


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





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский