linux 下面怎么USES Shellapi

zaciig

在一个label里面写了个网址，程序运行时候鼠标能点开那个网址，ShellExecute(handle, nil, pchar(label.CAPTION), nil, nil, 1);编译的时候报错，找不到shellexecute，然后在uses里面引用shellapi 也提示错误，不能找到，我是在ubuntu下面编译的，linux 下面怎么USES    Shellapi

gaochong

linux 下面是没有windows API 这个概念的，你如果只是想点击以后打开一个网址，可以调用TProcessUTF8 这个类，创建调用一个外部进程，和在windows 中调用winexec 类似；

3. uses  LCLProc,LazHelpHTML,UTF8Process;  
5. // --------------------------------------------------------------------------
8. procedure TAudoF.UrlBrower(urls:string);
9. var
10.   v: THTMLBrowserHelpViewer;
11.   BrowserPath, BrowserParams: string;
12.   p: LongInt;
13.   URL: String;
14.   BrowserProcess: TProcessUTF8;
15. begin
16.   v:=THTMLBrowserHelpViewer.Create(nil);
17.   try
18.     v.FindDefaultBrowser(BrowserPath,BrowserParams);
19.     debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
21.     URL:= urls;
22.     p:=System.Pos('%s', BrowserParams);
23.     System.Delete(BrowserParams,p,2);
25.     System.Insert(URL,BrowserParams,p);
27.     // start browser
28.     BrowserProcess:=TProcessUTF8.Create(nil);
29.     try
30.       BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
31.       BrowserProcess.Execute;
32.     finally
33.       BrowserProcess.Free;
34.     end;
35.   finally
36.     v.Free;
37.   end;
38. end;

复制代码