[pascal]
// 假如程式路徑在 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
[/pascal]
