Открыть URL в новом стандартном окне TWebBrowser

Советы » Браузер » Открыть URL в новом стандартном окне TWebBrowser

 uses


   ShellAPI, Registry;
 procedure

OpenURL(Url: string

);  var


   ts: string

;  begin


   with

TRegistry.Create do

     try

       rootkey := HKEY_CLASSES_ROOT;        OpenKey('htmlfileshellopencommand', False);
       try

         ts := ReadString('');        except

         ts := '';        end

;        CloseKey;      finally

       Free;      end

;    if

ts = '' then

Exit;    // remove quotes and commandline parameters
  ts := Copy(ts, Pos('"', ts) + 1, Length(ts));    ts := Copy(ts, 1, Pos('"', ts) - 1);    ShellExecute(0, 'open', PChar(ts), PChar(url), nil

, SW_SHOW);  end

;

 procedure

TForm1.Button1Click(Sender: TObject);  begin


   OpenURL('http://www.SwissDelphiCenter.ch');  end

;
 

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com