获取当前文件所在路径

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm} function hq(ShowResult: Boolean): String;//这是一个函数，返回应用程序文件所在目录begin Result := ParamStr(0); Result := ExtractFilePath(Result); if ShowResult then ShowMessage('应用程序路径是：' + Result);end;procedure ShowInfo(Info: String);//这是一个过程，显示信息Infobegin ShowMessage('应用程序路径是：' + Info);end;procedure TForm1.Button1Click(Sender: TObject);// Button1Click和下面的Button2Click都是方法，属于类TForm1var S: String;begin S := hq(False);//调用函数GetApplicationPath ShowInfo(S);//调用过程ShowInfoend;procedure TForm1.Button2Click(Sender: TObject);// 方法Button2Click和和方法Button1Click实现的功能是完全一样的begin hq(True);end;end.