VPF::Получение адресной строки - Форум программистов

In0stRAnez

Дата 26.3.2012, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

Привет всем!
Подскажите пожалуйста как оптимизировать данный код под Google chrome, firefox , opera

Код


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;

заранее благодарен!

Akella

Дата 28.3.2012, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

а что нужно-то?

In0stRAnez

Дата 28.3.2012, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

Этот код получает ссылку в адресной строке IE, хотел также получать сслыки текущей страницы в Opera, FireFox

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »