{

This file is part of the Mufasa Macro Library (MML)

Copyright (c) 2009-2012 by Raymond van Venetië and Merlijn Wajer

MML is free software: you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

the Free Software Foundation, either version 3 of the License, or

(at your option) any later version.

MML is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

GNU General Public License for more details.

You should have received a copy of the GNU General Public License

along with MML. If not, see <http://www.gnu.org/licenses/>.

See the file COPYING, included in this distribution,

for details about the copyright.

Web class for the Mufasa Macro Library

}

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.