得到本机上的硬盘数量

 

function GetVolumeInfo: Integer;
var
hVolume: THandle;
DiskExtents: PVolumeDiskExtents;
dwOutBytes: Cardinal;
Zai:integer;
I: Integer;
Pan:String;
begin
Zai:=0;
for I := 0 to 5 - 1 do
begin
Pan:='\\.\PHYSICALDRIVE'+inttostr(i);
hVolume := CreateFile(PChar(pan), 0,FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);

if (hVolume <> 0) and (INVALID_HANDLE_VALUE<>hVolume) then

begin
inc(zai);
CloseHandle(hVolume);
end;


end;
result:=zai;
end;