delphi7和XE下 获取路径

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

转载于:https://www.cnblogs.com/studypanp/p/4887329.html