Открыть URL в новом стандартном окне TWebBrowser
Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch
uses ShellAPI, Registry; procedure OpenURL(Url: string); var ts: string; begin with TRegistry.Create do try rootkey := HKEY_CLASSES_ROOT; OpenKey('\htmlfile\shell\open\command', 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;
Далее: Открыть URL в новом стандартном окне TWebBrowser 2 »»