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

Вниз

Как захватить текущий URL из окна Internet Explorer.   Найти похожие ветки 

 
mefisto   (2004-12-10 16:35) [0]

Такая проблема! Я зарегистрировал свою кнопку в IExploree,которая запускает мою программу и передаёт ей параметр через командную строку. После запуска выполняется функция которая захвативает текущий URL из окна Internet Explorer
(этот пример я нашел в  Delphi World © Выпуск 2002 - 2004 )---------
uses
 windows, ddeman, ...

function Get_URL(Servicio: string): string;
var
 Cliente_DDE: TDDEClientConv;
 temp: PChar;      
begin
 Result := "";
 Cliente_DDE:= TDDEClientConv.Create( nil );
 with Cliente_DDE do
 begin
   SetLink( Servicio,"WWW_GetWindowInfo");
   temp := RequestData("0xFFFFFFFF");
   Result := StrPas(temp);
   StrDispose(temp);  // <<-- Предотвращаем утечку памяти
   CloseLink;
 end;
 Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
  showmessage(Get_URL("IExplore"));
end;

---------
Всё бы хорошо, НО когда у меня запущено несколько окон с страничками Internet Explorer я через кнопку запускаю прогу то она постоянно вывобит один и тотже URL. Как переписать функцию так, чтоб функция выводила URL того окна Explorera, которое потеряло фокус!!!  


 
mefisto   (2004-12-10 17:03) [1]

Очень уж замутная функция!!!


 
mefisto   (2004-12-10 17:25) [2]

Кто нибуть подскажет;:?


 
8ung   (2004-12-10 19:22) [3]

А тебе именно переделать надо?
Можно же свою написать. Находить окно IE, находить на нём окно адреса и считывать строку. Усё на WinApi.


 
DiamondShark ©   (2004-12-10 19:38) [4]


> запускает мою программу и передаёт ей параметр через командную
> строку

А URL через ту же командную строку передать не судьба?



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

Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.036 c
1-1102592426
SINIY BELIY
2004-12-09 14:40
2004.12.26
Как вставить формулы из Worda в проект?


14-1102458363
KilkennyCat
2004-12-08 01:26
2004.12.26
Компания "ЭСК" полностью завершила процесс госрегистрации.


14-1101230112
alex145
2004-11-23 20:15
2004.12.26
Visual Studio


14-1102492845
Суслик
2004-12-08 11:00
2004.12.26
Delphi 2005 и никаких клиент-серверов


4-1100151730
Delph
2004-11-11 08:42
2004.12.26
Блокировка щелчка мышью в заголовке окна (формы)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский