论坛风格切换切换到宽版
  • 1944阅读
  • 0回复

已经解决,虎版帮我看一下这个磁盘检查不起作用 [复制链接]

上一主题 下一主题
离线land2010
 

发帖
21
金钱
210
威望
21
只看楼主 倒序阅读 0 发表于: 2015-06-01
[Code]
function GetDriveType(lpDisk: String): integer;
external [email]'GetDriveTypeA@kernel32.dll[/email] stdcall';
function GetMaxDrive(Param:string): string;
var i: integer;
  drv: string;
  maxSpace, FreeSpace,TotalSpace: Cardinal;
begin
Result:= '';
maxSpace:= 0;
For i:= 3 to 26 do           //不管三七二十一从 C: 盘一直检查到 Z: 盘
begin
drv:= chr(i+64)+':\';
if GetDriveType(drv)=3 then     //只处理硬盘(Type = 3)
begin
  GetSpaceOnDisk(drv, True, FreeSpace, TotalSpace);
  if FreeSpace > maxSpace then
    begin
    Result:=chr(i+64)+':';
    maxSpace:= FreeSpace;
    end;
end;
end;
end;
感谢虎版的源码,自己仔细一点就可以弄好