// 假如程式路徑在 c:\projects\bin\project1.exeShowMessage('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.exeShowMessage('OnlyName ='+ChangeFileExt(ExtractFileName(Application.Exename), ''),',','); //project1ShowMessage('Ext = '+ExtractFileExt (Application.Exename),',','); //.exe
关键字词:
