得到执行程序的目录

得到执行程序的目录 

　　SysUtils 单元中有  ExtractFileDir 与  ExtractFilePath两个类似的函数, 用哪一个?没有太大的关系。

　　不过有以下的差别: ExtractFilePath 传回值的最後一个字元是反斜杠“／”。

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　ShowMessage(ExtractFileDir(Application.Exename));

　　// ie: c:/temp

　　ShowMessage(ExtractFilePath(Application.Exename));

　　// ie: c:/temp/

　　end;

　　相同点： 如果执行文件在根目录下(如：C:/SAMPLE.EXE)的话, 两者的传回值相同， 且最后一个字符都是“／”。