delphi获得驱动器类型和剩余空间
01-25
2011年12月13日 swfccwz 发表评论 阅读评论
getdrivetype(pchar(‘F:\’));
可能得到以下返回值：
0 无法检测驱动器的类型
1 根目录无效
DRIVE_REMOVEABLE 可移动驱动器
DRIVE_FIXED 不可移动驱动器
DRIVE_REMOTE 网络驱动器
DRIVE_CDROM 光驱
DRIVE_RAMDISK 虚拟驱动器
查看源代码
打印帮助
01for i:=1 to 26 do
02begin
03if GetDriveType(PChar(Chr(i+64)+':\'))=DRIVE_FIXED then
04begin
05space := DiskFree(i);
06tspace:=disksize(i);
07f:= space/1024/1024/1024;
08g:= tspace/1024/1024/1024;
09if space 0 then
10begin
11ss:=ss+Chr(i+64)+'_size,';
12tt:= tt+FloatToStr(f)+',';
13end;
14end;
15end;
16ss:=Copy(ss,1,Length(ss)-1);
17tt:=Copy(tt,1,Length(tt)-1);
分享到： QQ空间 新浪微薄 腾讯微薄 人人网 开心网 更多 0
转载请注明来源：http://www.chinacoy.com/blog/20111213_85.html