GetCurrentDir 函数

获取当前目录的绝对路径。函数原型如下：

function GetCurrentDir: string;

例如用下面的代码获取当前目录的绝对路径并显示：

ShowMessage(GetCurrentDir);

GetDir 过程

获取指定驱动器中的当前目录。过程原型如下：

procedure GetDir(D: Byte; var S: string);

参数D 为指定的驱动器。当D 的数值为0 时，表示默认的驱动器；数值为1 时，表示A 驱动器；

数值为3 时，表示C 驱动器，依次类推。如果指定的驱动器不存在，则参数S 的数值设置为当前的目

录。可以通过下面的程序进行测试。

...

var

s:string;

i:Integer;

begin

for i:=0 to 15 do

begin

GetDir(I,s); { 0 = Current drive } //获取指定驱动器中的当前路径

MessageDlg(’当前驱动器目录是：’ + s,mtInformation,[mbOk],0);

end;

end;

MkDir 过程

新建一个目录。过程原型如下：

procedure MkDir(S: string);

MkDir 过程的用法与CreateDir 过程的用法一样，都只能在已经存在的路径下创建一层目录，MkDir过程在不存在的路径下创建目录时会提示错误，而CreateDir 过程则不提示。

RemoveDir 函数

删除一个存在的目录，目录必须为空（即目录里面不能包含目录或文件）。函数原型如下：

function RemoveDir(const Dir: string): Boolean;

如果删除目录成功，则返回True；否则，返回False。

RmDir 过程

删除一个存在的目录，目录必须为空。过程原型如下：

procedure RmDir(S: string);

如果要删除的目录不为空，或没有此目录，RmDir 过程会提示错误，而RemoveDir 函数则不提示错误。