发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 6.14 得到执行程序的目录
发信站: 哈工大紫丁香 (2000年09月01日16:25:49 星期五), 站内信件

得到执行程序的目录 

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


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]