Delphi 获取指定文件的驱动器名, 文件夹名, 路径名, 文件名

var fullFileName : string; begin // Set up a full file name with drive and path fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu'; // Show the component parts of this full name ShowMessage('Drive = '+ExtractFileDrive (fullFileName)); ShowMessage('Dir = '+ExtractFileDir (fullFileName)); ShowMessage('Path = '+ExtractFilePath (fullFileName)); ShowMessage('Name = '+ExtractFileName (fullFileName)); ShowMessage('Ext = '+ExtractFileExt (fullFileName)); end; Drive = C: Dir = C:\Program Files\Borland\Delphi7\Projects Path = C:\Program Files\Borland\Delphi7\Projects\ Name = Unit1.dcu Ext = .dcu

//获取应程序文件的路径ExtractFilePath(Application.ExeName);

var oldName, newName : string; begin // Try to rename the current Unit1.dcu to Uni1.old oldName := 'Unit1.dcu'; newName := ChangeFileExt(oldName, '.new'); // Show the old and new values ShowMessage('Old name = '+oldName); ShowMessage('New name = '+newName); end; Old name = Unit1.dcu New name = Unit1.new var selectedFile : string; drive : char; path, fileName : string; begin // Ask the user to select a file if PromptForFileName(selectedFile) then begin // Display this full file/path value ShowMessage('Selected file = '+selectedFile); // Split this full file/path value into its constituent parts ProcessPath(selectedFile, drive, path, fileName); ShowMessage('drive = '+drive); ShowMessage('path = '+path); ShowMessage('fileName = '+fileName); end; end; { The user selects C:\Files\data.txt and hits OK } Selected file = C:\Files\data.txt drive = C path = \Files filename = data.txt

http://www.delphibasics.co.uk/index.html

 

 

转载于:https://www.cnblogs.com/shangdawei/archive/2013/04/29/3050238.html

相关资源：数据结构—成绩单生成器