请问高手:如何利用API函数获取硬盘的序列号???(100分)

creation-zy · 2001-04-14

见<a href="Dispuser.asp?UserName=chinahawk">chinahawk</a>所提的问题 还有：LID=95684, LID=121695 一定要用API吗？

liao6373 · 2001-04-14

可利用API函数GetVolumeInformation，来获取某硬盘序列号。该函数具体使用 你可查看帮助。

tangdongping · 2001-04-14

使用API 函数deviceoncontrol， 如果使用win9x，则要读硬盘序列号很困难，因为win9x操作系统不允许直接操作硬件，只有进入 ring0,获得系统特权，才能进行操作 网上有这方面的资料，不过没有源吗，如果你想要，与我联系，我有delphi写的去硬盘序列号 程序

bluecoral · 2001-04-15

tangdongping:  我想找源码！我该怎么联系你呢？

jajsxf · 2001-04-15

我做过，用GetVolumeInformation 就可以搞定.

micony · 2001-04-16

呵呵，这里有： 取得硬盘序列号： Function GetHardDiskSerieNummer : string; var   Teller      : integer;   Lus         : integer;   SerieNummer : array[0..24] of char; begin   result := '';   Teller := 1;   for Lus := 1 to 8 do   begin    SerieNummer[Teller] := chr((HardDiskGegevens[10+Lus] div 256 ));    inc(Teller);    SerieNummer[Teller] := CHR((HardDiskGegevens[10+Lus] mod 256 ));    inc(Teller);   end;   result := SerieNummer;  end; 老弟，以后提问题前，先搜索一下吧，不信，你就“硬盘”两个字搜索一下，肯定能找到 你要的东西，这样可以节省你一点money~~：）

sonie · 2001-04-16

这类问题要成灾了。

yhmanjel · 2001-04-27

function tform1.getnumber(drive:string):string; var volumer,temp:dword; begin getvolumerinformation(pchar(drive),nil,0,@volumer,temp,temp,nil,0); getnumber:=copy(inttohex(volumer,0),1,8); end;

xk · 2001-04-27

看我的回答，应该是最全面的 http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=508394 欢迎访问vcl控件讨论区： vcl.xilubbs.com 控件存放地（刚开业）：vcl.4y4y.net

sportsman · 2001-04-27

来自：fatman 时间：01-1-10 10:11:21 ID:436157   下面是一位前辈写的代码 IDE.PAS (IDE硬盘参数检测)   ?Programmed by: 刘杰     ?nbsp;Designed     : 04/11/92   ?nbsp;Last modified: 01/26/95   ?请使用 Turbo Pascal 7.0 编译. const    { read/write --------------------------- }    HDC_DATA    = $01F0;    HDC_ERROR   = $01F1;    HDC_SECCOU  = $01F2;    HDC_SECNUM  = $01F3;    HDC_CYLLOW  = $01F4;    HDC_CYLHIGH = $01F5;    HDC_SDH     = $01F6;    { read --------------------------------- }    HDC_STATUS  : Word = $01F7;    HDC_ALTSTA  = $03F6;    { write -------------------------------- }    HDC_COMMAND = $01F7;    HDC_FIXED   = $03F6;    { commands ----------------------------- }    HDC_COMMAND_RESTORE = $10;    HDC_COMMAND_SEEK    = $70;    HDC_COMMAND_READ    = $20;    HDC_COMMAND_WRITE   = $30;    HDC_COMMAND_FORMAT  = $50;    HDC_COMMAND_READVER = $90;    HDC_COMMAND_DIAG    = $90;    HDC_COMMAND_SETPAR  = $91;    HDC_COMMAND_WRSTACK = $E8;    HDC_COMMAND_RDSTACK = $E4;    HDC_COMMAND_READPAR = $EC;    HDC_COMMAND_POWER   = $E0;    HDC_FIXED_IRQ       = $02;    HDC_FIXED_RESET     = $04;    HDC_STATUS_ERROR    = $01;    HDC_STATUS_INDEX    = $02;    HDC_STATUS_ECC      = $04;    HDC_STATUS_DRQ      = $08;    HDC_STATUS_COMPLETE = $10;    HDC_STATUS_WRFAULT  = $20;    HDC_STATUS_READY    = $40;    HDC_STATUS_BUSY     = $80; type    TIdeTypes = record       Cylinders,       Heads,       Sectors: Word;       Name: String[38];    end;    PIdeInfo = ^TIdeInfo;    TIdeInfo = record       genconf,       fixcyls,       remcyls,       heads,       bytetrack,                     { bytes per track }       bytesector,                    { bytes per sector }       sectors,                      { sectors per track }       byteisg,                      { bytes intesector gap }       byteplo,                      { bytes in sync }       worduniq: Word;                { words unique status }       serial: array[1..20] of Char;       contype,                       { controller type }       bufsiz,                      { buffer size in 512 byte blocks }       byteecc: Word;              { ECC bytes trasferred in read/write long   }       firmware: array[1..8] of Char; { firmware revision }       model: array[1..40] of Char;   { model ID }       secsint,                      { number of sectors transferred per inte rrupt }       dblword,                      { double word transfer flag }       writepro: Word;                { write protect }    end; const    IdesInDataBase = 17;    IdeTypes: array[1..IdesInDataBase] of TIdeTypes =    ((Cylinders:667;  Heads:4;  Sectors:33; Name:'Fujitsu M2611T (42.9 MB)'),       (Cylinders:667;  Heads:8;  Sectors:33; Name:'Fujitsu M2612T (85.9 MB)'),       (Cylinders:667;  Heads:12; Sectors:33; Name:'Fujitsu M2613T (128.9 MB)') ,     (Cylinders:667;  Heads:16; Sectors:33; Name:'Fujitsu M2614T (171.9 MB)') ,     (Cylinders:782;  Heads:2;  Sectors:27; Name:'Western Digital WD93024-A ( 20.6 MB)'),     (Cylinders:782;  Heads:4;  Sectors:27; Name:'Western Digital WD93044-A ( 41.2 MB)'),     (Cylinders:845;  Heads:3;  Sectors:35; Name:'Toshiba MK232FC (45.4 MB'),       (Cylinders:845;  Heads:7;  Sectors:35; Name:'Toshiba MK234FC (106 MB'),     (Cylinders:965;  Heads:5;  Sectors:17; Name:'Quantum ProDrive 40AT (40 M B)'),     (Cylinders:965;  Heads:10; Sectors:17; Name:'Quantum ProDrive 80AT (80 M B)'),     (Cylinders:1050; Heads:2;  Sectors:40; Name:'Teac SD-340 (41 MB)'),     (Cylinders:776;  Heads:8;  Sectors:33; Name:'Conner CP-3104 (100 MB)'),     (Cylinders:745;  Heads:4;  Sectors:28; Name:'Priam 3804M (40.7 MB)'),     (Cylinders:980;  Heads:10; Sectors:17; Name:'Western Digitial Caviar AC2 80 (81 MB)'),     (Cylinders:560;  Heads:6;  Sectors:26; Name:'Seagate ST157A (42 MB)'),     (Cylinders:732;  Heads:8;  Sectors:35; Name:'ALPS ELECTRIC Co.,LTD. DR31 1C (102 MB)'),     (Cylinders:0;    Heads:0;  Sectors:0;  Name:'')); type    parray = ^tarray;    tarray = array[1..256] of Word; var    secbuf: parray;    drive: Byte;    drv: String[1]; procedure printinfo; var    id: TIdeInfo;    capacity: Word;    types: String;    i: Integer;    function zo(const value: Byte): String;    begin       if Boolean(value) then          zo := ''       else          zo := 'not';    end;    function ToStr(value: LongInt): String;    var       S: String;    begin       Str(value, S);       ToStr := S;    end;    function ConvertHex(Value: Word): String;    const       hexTable: array[0..15] of Char = '0123456789ABCDEF';    begin       ConvertHex := hexTable[Hi(Value) shr 4] + hexTable[Hi(Value) and $f] +                       hexTable[Lo(Value) shr 4] + hexTable[Lo(Value) and $f];    end;    procedure SwapBytes(var Source, Dest; Len: Byte); assembler;    asm        push  ds        lds   si, Source        les   di, Dest        mov   cl, len        xor   ch, ch    @1: mov   ax, ds:[si]        xchg  ah, al        mov   es:[di], ax        inc   si        inc   si        inc   di        inc   di        loop  @1        pop    ds    end; begin    id := PIdeInfo(secbuf)^;    { get disk type by characteristics }    i := 1;    while IdeTypes.Cylinders <> 0 do       Begin   if (IdeTypes.cylinders = id.fixcyls) and      (IdeTypes.heads = id.heads) and      (IdeTypes.sectors = id.sectors) then             Begin                types := IdeTypes.name;                break;             end;          inc(i);       end;    { unknown disk }    if (IdeTypes.cylinders = 0) then       Begin          types := ' ';          { calculate capacity in MB }   capacity := (LongInt(id.fixcyls) * id.heads * id.sectors) div 2048;          types := types + ToStr(capacity);          types := types + ' Mbytes';       end;    { swap bytes in ASCII fields except for WD disks }    if (i <> 4) and (i <> 5) then       Begin          SwapBytes(id.serial, id.serial, 10);          SwapBytes(id.firmware, id.firmware, 4);          SwapBytes(id.model, id.model, 20);       end;    WriteLn('Drive ', drive-2, '     :', types);    WriteLn('Drive ID    : ', ConvertHex(id.genconf));    WriteLn('Cylinders   : ', id.fixcyls{, ' ' id.remcyls, ' removables'});    WriteLn('Heads       : ', id.heads);    Writeln('Sectors     : ', id.sectors);    WriteLn('Serial No.  : ', id.serial);    WriteLn('Firmware    : ', id.firmware);    WriteLn('Model       : ', id.model); {   WriteLn('Bytes per track         : ', id.bytetrack);    Writeln('Bytes per sector        : ', id.bytesector);    WriteLn('Bytes of intersector gap: ', id.byteisg);    Writeln('Bytes of sync           : ', id.byteplo);    WriteLn('Controller type         : ', id.contype);}    Writeln('Buffer      : ', id.bufsiz div 2, ' KBytes');    WriteLn('Bytes of ECC: ', id.byteecc); end; procedure readsect; assembler; asm { poll DRQ } @1: mov   dx, HDC_STATUS     in    al, dx     and   al, HDC_STATUS_BUSY     or    al, al     jne   @1 { read up sector }     mov   cx, 256     mov   dx, HDC_DATA     les   di, secbuf @2: in    ax, dx     mov   es:[di], ax     inc   di     inc   di     loop  @2 end; function DriveValid(Drive: Char; var Drv: Byte): Boolean; assembler; asm     mov   ah, 19h      { Save the current drive in BL }     int   21h     mov   bl, al     mov   dl, Drive    { Select the given drive }     sub   dl, 'A'     les   di, DRV     mov   es:[di], dl     mov   ah, 0Eh     int   21h     mov   ah, 19h      { Retrieve what DOS thinks is current }     int   21h     mov   cx, 0        { Assume false }     cmp   al, dl       { Is the current drive the given drive? }     jne   @1     mov   cx, 1        { It is, so the drive is valid }     mov   dl, bl       { Restore the old drive }     mov   ah, 0eh     int   21h @1: xchg  ax, cx       { Put the return value into AX } end; function CurDisk: Byte; assembler; { Returns current drive } asm     mov   ah, 19h     int   21h end; begin    Writeln('IDE ver 1.2  (c) 1995 Keenvim software workgroup, Inc.');    writeln('Programmed by  Mr. LiuJie'#13#10);    if ParamCount > 0 then       Begin          drv := ParamStr(1);          drv[1] := UpCase(drv[1]);          if not DriveValid(drv[1], Drive) or not (drv[1] in ['C'..'Z']) then               Begin                WriteLn('There isn''t such drive or drive invalid!');                Halt(1);             end;       end    else       drive := CurDisk;    { disable interrupt from drive }    Port[HDC_FIXED] := HDC_FIXED_IRQ;    { set up task file parameter }    Port[HDC_SDH] := $A0 + (drive shl 4);    { issue read parameters }    Port[HDC_COMMAND] := HDC_COMMAND_READPAR;    GetMem(secbuf, SizeOf(secbuf));    { read up sector }    readsect;    { print out info }    printinfo;    FreeMem(secbuf, SizeOf(secbuf)); end.     嘿嘿

bruce.li · 2001-04-30

什么乱七八糟的，没有一位老兄的代码行的通

zqh333 · 2001-04-30

用GetVolumeInformation省事了 BOOL GetVolumeInformation(     LPCTSTR lpRootPathName, // address of root directory of the file system     LPTSTR lpVolumeNameBuffer, // address of name of the volume     DWORD nVolumeNameSize, // length of lpVolumeNameBuffer     LPDWORD lpVolumeSerialNumber, // address of volume serial number     LPDWORD lpMaximumComponentLength, // address of system's maximum filename length     LPDWORD lpFileSystemFlags, // address of file system flags     LPTSTR lpFileSystemNameBuffer, // address of name of file system     DWORD nFileSystemNameSize // length of lpFileSystemNameBuffer   &nbsp

;

吕雪松 · 2001-04-30

到故纸堆里去翻吧——分先分掉

yth · 2001-04-30

一个console程序； 在Win9x下需要有 smartvsd.vxd，把他从/windows/system/拷贝到 /windows/system/iosubsys/重启 program IdeSN; {$APPTYPE CONSOLE} uses   Windows,   SysUtils; // only for Win32Platform and SysErrorMessage //------------------------------------------------------------- function GetIdeDiskSerialNumber : String; 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;   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; const   IDE_ID_FUNCTION = $EC;   IDENTIFY_BUFFER_SIZE       = 512;   DFP_RECEIVE_DRIVE_DATA        = $0007c088;   IOCTL_SCSI_MINIPORT           = $0004d008;   IOCTL_SCSI_MINIPORT_IDENTIFY  = $001b0501;   DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;   BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;   W9xBufferSize = IDENTIFY_BUFFER_SIZE+16; var   hDevice : THandle;   cbBytesReturned : DWORD;   pInData : PSendCmdInParams;   pOutData : Pointer; // PSendCmdOutParams   Buffer : Array[0..BufferSize-1] of Byte;   srbControl : TSrbIoControl absolute Buffer;   procedure ChangeByteOrder( var Data; Size : Integer );   var ptr : PChar;       i : Integer;       c : Char;   begin     ptr := @Data;     for i := 0 to (Size shr 1)-1 do     begin       c := ptr^;       ptr^ := (ptr+1)^;       (ptr+1)^ := c;       Inc(ptr,2);     end;   end; begin   Result := '';   FillChar(Buffer,BufferSize,#0);   if Win32Platform=VER_PLATFORM_WIN32_NT then     begin // Windows NT, Windows 2000       // Get SCSI port handle       hDevice := CreateFile( '//./Scsi0:',         GENERIC_READ or GENERIC_WRITE,         FILE_SHARE_READ or FILE_SHARE_WRITE,         nil, OPEN_EXISTING, 0, 0 );       if hDevice=INVALID_HANDLE_VALUE then Exit;       try         srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);         System.Move('SCSIDISK',srbControl.Signature,8);         srbControl.Timeout      := 2;         srbControl.Length       := DataSize;         srbControl.ControlCode  := IOCTL_SCSI_MINIPORT_IDENTIFY;         pInData := PSendCmdInParams(PChar(@Buffer)                    +SizeOf(SRB_IO_CONTROL));         pOutData := pInData;         with pInData^ do         begin           cBufferSize  := IDENTIFY_BUFFER_SIZE;           bDriveNumber := 0;           with irDriveRegs do           begin             bFeaturesReg     := 0;             bSectorCountReg  := 1;             bSectorNumberReg := 1;             bCylLowReg       := 0;             bCylHighReg      := 0;             bDriveHeadReg    := $A0;             bCommandReg      := IDE_ID_FUNCTION;           end;         end;         if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT,           @Buffer, BufferSize, @Buffer, BufferSize,           cbBytesReturned, nil ) then Exit;       finally         CloseHandle(hDevice);       end;     end   else     begin // Windows 95 OSR2, Windows 98       hDevice := CreateFile( '//./SMARTVSD', 0, 0, nil,         CREATE_NEW, 0, 0 );       if hDevice=INVALID_HANDLE_VALUE then Exit;       try         pInData := PSendCmdInParams(@Buffer);         pOutData := @pInData^.bBuffer;         with pInData^ do         begin           cBufferSize  := IDENTIFY_BUFFER_SIZE;           bDriveNumber := 0;           with irDriveRegs do           begin             bFeaturesReg     := 0;             bSectorCountReg  := 1;             bSectorNumberReg := 1;             bCylLowReg       := 0;             bCylHighReg      := 0;             bDriveHeadReg    := $A0;             bCommandReg      := IDE_ID_FUNCTION;           end;         end;         if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA,           pInData, SizeOf(TSendCmdInParams)-1, pOutData,           W9xBufferSize, cbBytesReturned, nil ) then Exit;       finally         CloseHandle(hDevice);       end;     end;     with PIdSector(PChar(pOutData)+16)^ do     begin       ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));       SetString(Result,sSerialNumber,SizeOf(sSerialNumber));     end; end; //============================================================= var s : String;     rc : DWORD; begin   s := GetIdeDiskSerialNumber;   if s='' then     begin       rc := GetLastError;       if rc=0 then WriteLn('IDE drive is not support SMART feature')       else WriteLn(SysErrorMessage(rc));     end   else WriteLn('Disk serial number: ''', s,''''); end.

DragonPC_??? · 2001-06-14

lu0.126.com 陆陵同志通过MS的S.M.A.R.T.接口,直接从RING3调用API DeviceIoControl()来获取硬盘 信息

请问高手:如何利用API函数获取硬盘的序列号???(100分)

bluecoral

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

liao6373

Unregistered / Unconfirmed

tangdongping

Unregistered / Unconfirmed

bluecoral

Unregistered / Unconfirmed

jajsxf

Unregistered / Unconfirmed

micony

Unregistered / Unconfirmed

sonie

Unregistered / Unconfirmed

yhmanjel

Unregistered / Unconfirmed

xk

Unregistered / Unconfirmed

sportsman

Unregistered / Unconfirmed

bruce.li

Unregistered / Unconfirmed

zqh333

Unregistered / Unconfirmed

吕雪松

Unregistered / Unconfirmed

yth

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

Similar threads