mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-24 16:28:53 -05:00
43 lines
826 B
ObjectPascal
43 lines
826 B
ObjectPascal
|
unit web;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, SysUtils,LazHelpHTML,UTF8Process;
|
||
|
|
|
||
|
|
procedure OpenWebPage(URL: string);
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
|
||
|
|
procedure OpenWebPage(URL: string);
|
||
|
|
var
|
||
|
|
v: THTMLBrowserHelpViewer;
|
||
|
|
BrowserPath, BrowserParams: string;
|
||
|
|
p: LongInt;
|
||
|
|
BrowserProcess: TProcessUTF8;
|
||
|
|
begin
|
||
|
|
v:=THTMLBrowserHelpViewer.Create(nil);
|
||
|
|
try
|
||
|
|
v.FindDefaultBrowser(BrowserPath,BrowserParams);
|
||
|
|
p:=System.Pos('%s', BrowserParams);
|
||
|
|
System.Delete(BrowserParams,p,2);
|
||
|
|
System.Insert(URL,BrowserParams,p);
|
||
|
|
|
||
|
|
// start browser
|
||
|
|
BrowserProcess:=TProcessUTF8.Create(nil);
|
||
|
|
try
|
||
|
|
BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
|
||
|
|
BrowserProcess.Execute;
|
||
|
|
finally
|
||
|
|
BrowserProcess.Free;
|
||
|
|
end;
|
||
|
|
finally
|
||
|
|
v.Free;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end.
|
||
|
|
|