本文整理自网络，侵删。
function GetDiskInfo:string;//获取硬盘信息
var
str:string;
Drivers:Integer;
driver:char;
i,temp:integer;
d1,d2,d3,d4: DWORD;
ss:string;
begin
ss:='';
Drivers:=GetLogicalDrives;
temp:=(1 and Drivers);
for i:=0 to 26 do
begin
if temp=1 then
begin
driver:=char(i+integer('A'));
str:=driver+':';
if (driver<>'') and (getdrivetype(pchar(str))<>drive_cdrom) and (getdrivetype(pchar(str))<>DRIVE_REMOVABLE) then
begin
GetDiskFreeSpace(pchar(str),d1,d2,d3,d4);
ss:=ss+str+Format('总空间: %f GB,',[d4/1024/1024/1024*d2*d1])+Format('剩余空间: %f GB',[d3/1024/1024/1024*d2*d1])+'; ';
end;
end;
drivers:=(drivers shr 1);
temp:=(1 and Drivers);
end;
result:=ss;
end;
编程环境：WindowsXP+Delphi7
相关阅读 >>
Delphi winapi: setlayeredwindowattributes - 设置窗口的透明
更多相关阅读请进入《Delphi》频道 >>
