Открыть URL в новом стандартном окне TWebBrowserDelphi , Интернет и Сети , БраузерОткрыть URL в новом стандартном окне TWebBrowser
Оформил: DeeCo 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 раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |