HanDs
NO.2

[Delphi文章] 得到本机上的硬盘数量 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

注意,不是分区。
(别人从c转delphi的代码。)
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;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
得到 机上 硬盘 数量
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组