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


本文整理自网络,侵删。

 在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

相关阅读 >>

Delphi 的编译指令(1): $define、$undef、$ifdef、$else、$endif

用tidftp控件实现ftp协议

Delphi idhttp 实战用法(tidhttpex)

Delphi执行sql提示“不正常地定义参数对象”,“提供了不一致或不完整的信息”错误

Delphi win10系统通知 notificationcenter1 基本用法

Delphi sqlite incomplete input 错误

Delphi 对非活动窗口进行屏幕截图

Delphi 提取标签之间的字符串

Delphi中怎么判断一个文件夹是否为空

理解Delphi中sender用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...