delphi三十六之磁盘篇

下载本文示例代码
　　1．读硬盘序列号 function GetDiskSerial(DiskChar: Char): string;varSerialNum : pdword;a, b : dword;Buffer : array [0..255] of char;beginresult := "";if GetVolumeInformation(PChar(diskchar ":\"), Buffer, SizeOf(Buffer), SerialNum,a, b, nil, 0) then　Result := IntToStr(SerialNum^);end;　　2．检查磁盘是否就绪Function DiskReady(Root: string) : Boolean;varOem : CARDINAL ;Dw1,Dw2 : DWORD ;beginOem := SetErrorMode( SEM_FAILCRITICALERRORS ) ;if LENGTH(Root) = 1 then Root := Root ":\\" ;　Result := GetVolumeInformation( PCHAR( Root ), NIL,0,NIL, Dw1,Dw2, NIL,0 ) ;　SetErrorMode( Oem ) ;end;共2页。 1 2 8 : 　　1．读硬盘序列号 function GetDiskSerial(DiskChar: Char): string;varSerialNum : pdword;a, b : dword;Buffer : array [0..255] of char;beginresult := "";if GetVolumeInformation(PChar(diskchar ":\"), Buffer, SizeOf(Buffer), SerialNum,a, b, nil, 0) then　Result := IntToStr(SerialNum^);end;　　2．检查磁盘是否就绪Function DiskReady(Root: string) : Boolean;varOem : CARDINAL ;Dw1,Dw2 : DWORD ;beginOem := SetErrorMode( SEM_FAILCRITICALERRORS ) ;if LENGTH(Root) = 1 then Root := Root ":\\" ;　Result := GetVolumeInformation( PCHAR( Root ), NIL,0,NIL, Dw1,Dw2, NIL,0 ) ;　SetErrorMode( Oem ) ;end;共2页。 1 2 8 : 下载本文示例代码


delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇delphi三十六之磁盘篇