Программирование на Delphi и не только Как открыть ссылку в текущем окне IE? | Программирование на Delphi и не только

Delphi FAQ >> Интернет

Данная процедура на Delphi позволяет открыть ссылку в текущем окне браузера Internet Explorer.

uses ddeman; …

procedure GotoWebPage;
var   DDE : TDDECLientConv;

  URL : String;

  URLFired : Boolean;

begin

  URL := 'http://www.hotbot.com';

  DDE := TDDEClientConv.Create(nil);


  try     DDE.ServiceApplication := 'iexplore';

    if DDE.SetLink('iexplore', 'WWW_OpenURL') then


      if (DDE.RequestData(URL + ',,1') nil) then
        if DDE.SetLink('iexplore', 'WWW_Activate') then
          URLFired := DDE.RequestData('0,0') nil;
  finally     DDE.Free;

  end;


end;

Разработка программного обеспечения на заказ сейчас намного более популярна чем на заре резвития рынка программного обеспечения. Это и понятно, тогда не было высокоуровневых языков программирования, да и учиться то особо не у кого было, всего приходилось добиваться самому.