得到执行程序的目录

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)的话, 两者的传回值相同， 且最后一个字符都是“／”。