Как открыть ссылку в текущем окне IE?

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;


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