Создание сайта, дизайн, web дизайн
Главная Работы Услуги Цены Контакты

 Главная
 Работы
 Услуги
 Цены
 Контакты
 

Приводимая здесь функция показывает, как Ваше приложение может извлечь из браузера (IE или Netscape) URL , как, например, это делает аська. Не забудьте добавить DDEMan в Ваш проект!

Собственно сам исходничек функции:

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;




http://www.sources.ru/
Состояние воздуха:
Мониторинг загрязнения атмосферы в режиме реального времени
© 2004-2017 LABDESIGN.RU   e-mail: