本文整理自网络,侵删。
//获取当前文件夹 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 打造mygetprocaddress函数(Delphi源码)
更多相关阅读请进入《Delphi》频道 >>