XE里没有Application.Exename所以用paramstr(0);
Str:=ParamStr(0); //自己全路径c:\555\qq.exe,可用于控制台
Str:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c:\qq\2.exe
Str:=ExtractFileDir(ParamStr(0)); //获取本程序的路径 c:\qq
Str:=application.Exename; //获取本程序的完整路径 c:\qq\2.exe,和第1个一样
Str:=ExtractFilename(Application.Exename); //获得文件名2.exe
时间: 2024-11-10 13:38:12