Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС 2017
выпущен 15 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



DDE для захвата текущего URL из окна Internet Explorer или Netscape Navigator


Вопpос: "Можно ли сообщение "Пpогpамма выполнила недопустимую опеpацию....обpатитесь к pазpаботчику" считать официальным вызовом в США?


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS