本文整理自网络,侵删。
//获取指定驱动器的当前路径名 GetDir
var
dir: string;
b: Byte;
begin
b := 0;
GetDir(b,dir);
ShowMessage(dir); //
//第一个参数: 1、2、3、4...分别对应: A、B、C、D...
//0 是缺省驱动器
end;
相关阅读 >>
Delphi xe android下让tmemo不自动弹出键盘
Delphi dll注入x86/x64/win2k~win8.1全可用
扩展 Delphi 线程 使之传递参数.(给匿名线程增加参数)
更多相关阅读请进入《Delphi》频道 >>