![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 05.01.2008
Сообщений: 85
|
![]()
Добрый день. Столкнулся с проблемой. требуется перехватить информацию, введенную в адресную строку браузера. Заренее благодареню
|
![]() |
![]() |
![]() |
#2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Этот вопрос подробно рассматривался. Поиск по форуму по слову FINDWINDOW.
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 25.08.2008
Сообщений: 3
|
![]()
Не помню где взял, но работает:
uses windows, ddeman, ...... function Get_URL(Servicio: string): String; var Cliente_DDE: TDDEClientConv; temp:PChar; //<<-------------------------This is new 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('Netscape')); или showmessage(Get_URL('IExplore')); end; |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 05.01.2008
Сообщений: 85
|
![]()
mihali4, Cheetan спасибо огромное! работает!
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 05.01.2008
Сообщений: 85
|
![]()
Вот еще вопрос. мне при опознавании определенного сайта нужно перенаправить браузер например на google.ru. Как мне это сделать?
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
HTML,как заменить текст в адресной строке? | Ладушка | HTML и CSS | 13 | 28.08.2008 19:37 |
Смена кодировки названия открываемого файла в адресной строке при переходе на него по ссылки | Adamant | HTML и CSS | 1 | 08.02.2008 18:51 |
Как перехватить/узнать содержимое адресной сроки? | s-force | Работа с сетью в Delphi | 5 | 27.08.2007 10:39 |
перехват ссылки из браузера | Scorpeon | Общие вопросы Delphi | 6 | 21.06.2007 19:08 |
Определить вкладки браузера | toxicll | Win Api | 3 | 10.05.2007 20:11 |