43 lines
784 B
Plaintext
43 lines
784 B
Plaintext
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.
|
|
|