delphi取得目前程序位置名称路径

// 假如程式路徑在 c:\projects\bin\project1.exe
ShowMessage('Drive = '+ExtractFileDrive (Application.Exename));  //C:
ShowMessage('Dir   = '+ExtractFileDir   (Application.Exename));  //c:\projects\bin 
ShowMessage('Path  = '+ExtractFilePath  (Application.Exename));  //c:\projects\bin\
ShowMessage('Name  = '+ExtractFileName  (Application.Exename));  //project1.exe
ShowMessage('OnlyName ='+ChangeFileExt(ExtractFileName(Application.Exename), ''));  //project1
ShowMessage('Ext   = '+ExtractFileExt   (Application.Exename)); //.exe
推荐分享