代碼 ?1?unit?Unit1;
?2?interface
?3?uses
?4???Windows,?Messages,?SysUtils,?Variants,?Classes,?Graphics,?Controls,?Forms,
?5???Dialogs,?StdCtrls;
?6?type
?7???TForm1?=?class(TForm)
?8?????Button1:?TButton;
?9?????Button2:?TButton;
10?????procedure?Button1Click(Sender:?TObject);
11?????procedure?Button2Click(Sender:?TObject);
12???private
13?????{?Private?declarations?}
14???public
15?????{?Public?declarations?}
16???end;
17?var
18???Form1:?TForm1;
19?implementation
20?
21?{$R?*.dfm}
22??function?hq(ShowResult:?Boolean):?String;
23?//這是一個函數，返回應用程序文件所在目錄
24?begin
25???Result?:=?ParamStr(0);
26???Result?:=?ExtractFilePath(Result);
27???if?ShowResult?then
28?????ShowMessage('應用程序路徑是：'?+?Result);
29?end;
30?procedure?ShowInfo(Info:?String);
31?//這是一個過程，顯示信息Info
32?begin
33???ShowMessage('應用程序路徑是：'?+?Info);
34?end;
35?procedure?TForm1.Button1Click(Sender:?TObject);
36?//?Button1Click和下面的Button2Click都是方法，屬于類TForm1
37?var
38???S:?String;
39?begin
40???S?:=?hq(False);????//調用函數GetApplicationPath
41???ShowInfo(S);????//調用過程ShowInfo
42?end;
43?procedure?TForm1.Button2Click(Sender:?TObject);
44?//?方法Button2Click和和方法Button1Click實現的功能是完全一樣的
45?begin
46???hq(True);
47?end;
48?end.

?

轉載于:https://www.cnblogs.com/heimei/archive/2009/12/10/1620740.html

總結

以上是生活随笔為你收集整理的获取当前文件所在路径的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。