Показать сообщение отдельно
  #1  
Старый 27.12.2010, 10:44
Ckorpion Ckorpion вне форума
Прохожий
 
Регистрация: 27.12.2010
Сообщения: 2
Репутация: 10
По умолчанию Получить активный url из Google Chrome

Здравствуйте, не могу получить активный url из Google Chrome
Вот нашел вот этот код
Код:
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;
смог получить url из ИЕ,фрифоха,опера...., но как понял из Chrome таким образом получить нельзя.
Как можно получить УРЛ из google chrome????
Ответить с цитированием