http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=52168
代碼: 選擇全部
uses FileCtrl...
procedure Tform1.Button1Click(Sender: TObject);
var
Drive: char;
DirPart, FilePart:string;
begin
ProcessPath( 'c:winntsystem', Drive, DirPart, FilePart);
ShowMessage(Drive); // c
ShowMessage(DirPart); // winntsystem
ShowMessage(FilePart); // ''
end;
其中回傳的 Drive 為磁碟代碼, 不含 : (冒號), DirPart 為路徑不含磁碟及最後的反斜線, FilePart 則為檔案的部分, 由於本 procedure 會測試最後是否為檔案, 所以若傳入資料為路徑無檔案時, 此部分則為空字串!!