//获取指定驱动器的当前路径名 GetDir
var
dir: string;
b: Byte;
begin
b := 0;
GetDir(b,dir);
ShowMessage(dir); //

//第一个参数: 1、2、3、4...分别对应: A、B、C、D...
//0 是缺省驱动器
end;