Delphi GetCurrentDir 获取当前文件夹

2021-06-27 01:04

阅读:595

标签:and   document   ring   project   function   func   current   message   ==   

//获取当前文件夹 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 获取当前文件夹

标签:and   document   ring   project   function   func   current   message   ==   

原文地址:https://www.cnblogs.com/jijm123/p/10092256.html


评论


亲,登录后才可以留言!