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 日期相减 比较大小 过期时间函数

Delphi kbmmemtable的简单应用（增删改查示例）

Delphi 遍历系统窗口标题可用于反外挂反破解

Delphi 在firemonkey应用程序中使用torientationsensor获取设备倾斜和指南针航向

Delphi创建桌面快捷方式及锁定任务栏等功能

Delphi多线程学习：多线程数据库查询（ado）

Delphi udp文件传输

Delphi 如何在程序中动态设置墙纸（使用iactivedesktop接口）

Delphi shellexecute 发送邮件

Delphi strutils.leftstr、strutils.rightstr - 提取左右字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi GetCurrentDir 获取当前文件夹