//获取指定驱动器的当前路径名 GetDirvardir: string;b: Byte;beginb := 0;GetDir(b,dir);ShowMessage(dir); //
//第一个参数: 1、2、3、4...分别对应: A、B、C、D...//0 是缺省驱动器end;