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

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

uses ddeman;
...
procedure GotoWebPage;
var
  DDE : TDDECLientConv;
  URL : String;
  URLFired : Boolean;
begin
  URL := 'https://mywebcenter.ru';
  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;

 

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *