如何实现label上面的网址可以打开

zaciig

我想在程序运行后，label上面的那个网址，鼠标双击可以打开，在windows下面，uses  shellapi，然后shellexecute 就可以了，可是在linux下面无法引用shellapi，请问大家一般都是怎样实现这个的

reinhardcao

现在手头没有linux，没办法验证：
http://hi.baidu.com/bazhaohua/bl ... 1b3e319a502766.html

猫者

unit my_pub_functions;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,LazHelpHTML,UTF8Process;
var
  s____:string;
resourcestring
  a____='t';
// Open url use default web browser
procedure OpenUrl(url1:String);
implementation
procedure 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); //此句会找到系统的默认浏览器，然后打开网址【支持windows及linux】


    URL:=url1;
    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;


end.

猫者

然后这样调用
use my_pub_functions;
procedure TfrmAbout.Label2DblClick(Sender: TObject);
begin
    my_pub_functions.OpenUrl(self.Label2.Caption);

end;

zaciig

程序里面如何实现  启动终端呀

zaciig

这个貌似有点意思