Lazarus, use default web browser to open url. 使用默认浏览器打开网址

猫者

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LazHelpHTML,
  UTF8Process, StdCtrls;


type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { private declarations }
    procedure OpenUrl(url1:String);
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.OpenUrl(url1:String);
var
  v: THTMLBrowserHelpViewer;
  BrowserPath, BrowserParams: string;
  p: LongInt;
  URL: String;
  BrowserProcess: TProcessUTF8;

begin
  v:=THTMLBrowserHelpViewer.Create(nil);
  try
    v.FindDefaultBrowser(BrowserPath,BrowserParams);


    URL:=url1; // url:= 'http://www.fpccn.com';
    p:=System.Pos('%s', BrowserParams);
    System.Delete(BrowserParams,p,2);
    System.Insert(URL,BrowserParams,p);


    BrowserProcess:=TProcessUTF8.Create(nil);
    try
      BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
      BrowserProcess.Execute;
    finally
      BrowserProcess.Free;
    end;
  finally
    v.Free;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Label2Click(Sender: TObject);
begin
   self.OpenUrl(self.Label2.Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    self.OpenUrl(self.Edit1.Text);
end;


end.

bioman

看看怎么实现的

zisetest

学习代码！谢谢

gzwplato

学习代码！谢谢

brianwung

來試試看~3Q

rty813

看看 了  3q

a1332251785

我运行了下，出现错误“failed to execute C\\system32\\rundll32.exeurl.dll”

dkasjfefkdaj

回复吧。源码加乱码了。

loxer

不是用shellAPI（URL）就可以了吗？
这么复杂？

aaa

直接用OpenURL()函数吧。lazarus自带库函数，方便移植，跨平台，推荐使用。

还有类似的2个函数。也推荐使用。

// Functions in the include file sysenvapis.inc
function FindDefaultBrowser(out ABrowser, AParams: String): Boolean;
function OpenURL(AURL: String): Boolean;
function OpenDocument(APath: String): Boolean;