获取当前文件所在路径

代码

 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