Главная страницаОбратная связьКарта сайта

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


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;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "DDE для захвата текущего URL из окна Internet Explorer или Netscape Navigator", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info