如何得到硬盘物理序号

时间:2010-02-01 13:18:55  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:Windows, Controls,SysUtils,Forms;//, Graphics, Dialogs, Classes, Messages,StdCtrls;typeTSrbIoControl = packed recordHeaderLength : ULONG;Signature    : Array[0..7] of Char;Timeout      : ULONG;ControlCode  : ULONG;ReturnCode   : ULONG;...
  正文:如何得到硬盘物理序号


unit hdid;

interface

uses
Windows, Controls,SysUtils,Forms;
//, Graphics, Dialogs, Classes, Messages,StdCtrls;
type
TSrbIoControl = packed record
HeaderLength : ULONG;
Signature    : Array[0..7] of Char;
Timeout      : ULONG;
ControlCode  : ULONG;
ReturnCode   : ULONG;
Length       : ULONG;
end;
SRB_IO_CONTROL = TSrbIoControl;
photoshop/ target=_blank class=infotextkey>psrbIoControl = ^TSrbIoControl;

TIDERegs = packed record
bFeaturesReg     : Byte; // Used for specifying SMART "commands".
    bSectorCountReg  : Byte; // IDE sector count register
    bSectorNumberReg : Byte; // IDE sector number register
    bCylLowReg       : Byte; // IDE low order cylinder value
    bCylHighReg      : Byte; // IDE high order cylinder value
    bDriveHeadReg    : Byte; // IDE drive/head register
    bCommandReg      : Byte; // Actual IDE command.
    bReserved        : Byte; // reserved.  Must be zero.
  end;
IDEREGS   = TIDERegs;
PIDERegs  = ^TIDERegs;

TSendCmdInParams = packed record
cBufferSize  : Dword;
irDriveRegs  : TIDERegs;
bDriveNumber : Byte;
bReserved    : Array[0..2] of Byte;
dwReserved   : Array[0..3] of DWORD;
bBuffer      : Array[0..0] of Byte;
end;
SENDCMDINPARAMS   = TSendCmdInParams;
PSendCmdInParams  = ^TSendCmdInParams;

TIdSector = packed record
wGenConfig                 : Word;
wNumCyls                   : Word;
wReserved                  : Word;
wNumHeads                  : Word;
wBytesPerTrack             : Word;
wBytesPerSector            : Word;
wSectorsPerTrack           : Word;
wVendorUnique              : Array[0..2] of Word;
sSerialNumber              : Array[0..19] of Char;
wBufferType                : Word;
wBufferSize                : Word;
wECCSize                   : Word;
sFirmwareRev               : Array[0..7] of Char;
sModelNumber               : Array[0..39] of Char;
wMoreVendorUnique          : Word;
wDoubleWordIO              : Word;
wCapabilities              : Word;
wReserved1                 : Word;
wPIOTiming                 : Word;
wDMATiming                 : Word;
wBS                        : Word;
wNumCurrentCyls            : Word;
wNumCurrentHeads           : Word;
wNumCurrentSectorsPerTrack : Word;
ulCurrentSectorCapacity    : ULONG;
wMultSectorStuff           : Word;
ulTotalAddressableSectors  : ULONG;
wSingleWordDMA             : Word;
wMultiWordDMA              : Word;
bReserved                  : Array[0..127] of Byte;
end;
PIdSector = ^TIdSector;
如何得到硬盘物理序号》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12716.html

 1/4    1 2 3 4 下一页 尾页


关键字:

关于《如何得到硬盘物理序号》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td