当前位置：首页 > windos > 正文

Delphi GetCurrentDir 获取当前文件夹

//获取当前文件夹 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制作的文档编辑器源代码（仿Word）

下一篇
始终在桌面最顶层显示的窗体

相关文章

最新文章