本文整理自网络,侵删。
//获取当前文件夹 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 win32_diskdrive 硬盘 参数说明
Delphi 与 xml 示例(直接利用ixmldocument)
Delphi enablecontrols,disablecontrols函数
Delphi 中让嵌入窗体的 webbrowser 控件无边框
更多相关阅读请进入《Delphi》频道 >>