1. 程式人生 > >Delphi GetCurrentDir 獲取當前文件夾

Delphi GetCurrentDir 獲取當前文件夾

文件夾 document get del etc cts res gin documents

//獲取當前文件夾 GetCurrentDir
var
dir: string;
begin
dir := GetCurrentDir;
ShowMessage(dir); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects
end;

=============

function GetCurrentDir: string;
begin
GetDir(0, Result);
end;

Delphi GetCurrentDir 獲取當前文件夾