delphi 得到执行程序的当前所在完整路径

2017-04-14 21:51:47来源:CSDN作者:zisongjia人点击

在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: 

ExtractFilePath 传回值的最後一个字元是反斜杠“/”。

ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:/temp

ShowMessage(ExtractFilePath(Application.Exename)); // 返回值为 c:/temp/

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

===============================================================================

edit1.Text:=ParamStr(0);//自己全路径c:/555/qq.exe,可用于控制台

edit1.text:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c:/qq/2.exe
edit2.text:=ExtractFileDir(ParamStr(0)); //获取本程序的路径 c:/qq
edit3.text:=application.Exename; //获取本程序的完整路径 c:/qq/2.exe,和第1个一样
edit4.text:=ExtractFilename(Application.Exename); //获得文件名2.exe

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台