98下如何获得硬盘序列号？(100分)

jieson · 2003-04-24

我搜过以前的帖子，下面这个号称能获得，但是我在d6下编译有三处语法错误： unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} type  TGate = record      Off2,op,seg,off1:WORD;  end;  LONGDWORD = INT64; var   IDTR: LONGDWORD;   SavedGate:TGate;   OurGate: TGate;   dd: array [0..256] of word;   dsn:array [0..20] of char; //存放硬盘序列号 procedure Ring0Proc(); asm // Wait for controller not busy mov dx,01f7h @1:in al,dx cmp al,050h jne  @1 // Get first/second drive dec dx mov al,0a0h out dx,al // Get drive info data inc dx mov al,0ech out dx,al nop nop // Wait for data ready @2:in al,dx cmp al,058h jne  @2 nop nop // Read sector xor ecx,ecx mov dx,01f0h @3:in ax,dx mov word ptr dd[ecx*2],ax    // <------这里有语法错误 inc ecx cmp ecx,256 jne @3 iretd  //中断返回 end; procedure Change2Ring0(); begin   asm       mov   eax, offset Ring0Proc       mov   OurGate.off2, ax  // 将中断函数的地址       shr   eax, 16   // 填入新造的中断门       mov   OurGate.off1, ax // 描述符       mov   OurGate.op,0028h       mov   OurGate.seg,0ee00h  // <------这里有语法错误       mov   ebx,offset IDTR       sidt  [ebx]       // 将中断描述符表寄存器（IDTR）的内容取出       mov   ebx, dword ptr [IDTR+2]       // 取出中断描述符表（IDT）基地址       add   ebx, 8*3       // 计算Int 3 的描述符应放置的地址选用       //Int3 是因为它在Win32 保护模式下未占用       mov      edi, offset SavedGate       mov      esi, ebx       movsd   // 保存原来的Int 9 描述符到       movsd  //SavedGate 以便恢复       mov      edi, ebx       mov      esi, offset OurGate       cli       movsd  // 替换原来的中断门描述符       movsd  // 以安装中断服务例程       sti       mov   eax,6200h      // 用以测试放在EAX 中的数据  能否正确传到Ring0 中断       mov   ecx,0      // 用以测试放在ECX 中的数据      //  能否正确传到Ring0 中断       // 因为很多VxD 服务都用此二寄存器传递参数      int 3h      // 人为触发中断, 平时会出现保护错误蓝屏或非法操      // 作对话框，现在安装了      // 中断服务例程后，就会通过      //VMM 在Ring0 调用中断服务例程Ring0Proc       mov    edi, ebx       mov    esi, offset SavedGate       cli       movsd // 恢复原来的中断门描述符       movsd       sti   end; asm xor ecx,ecx mov ebx,offset dd[10*2]  // <------这里有语法错误 @4:mov ax,[ebx] mov byte ptr dsn[ecx],ah inc ecx mov byte ptr dsn[ecx],al inc ebx inc ebx inc ecx cmp ecx,10 jne @4 end;   showmessage(dsn); end; procedure TForm1.Button1Click(Sender: TObject); begin     change2ring0; end; end. 还有另外一个办法，可以在2000和nt下获得硬盘序列号，但是98下还需要把 SmartVSD.VxD拷到System/IOSubSys目录下，然后重起之后才行，我不想让人重起，下面 是代码： 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 for future use.  Must be zero.   end;   IDEREGS   = TIDERegs;   PIDERegs  = ^TIDERegs;   TSendCmdInParams = packed record     cBufferSize  : DWORD;                // Buffer size in bytes     irDriveRegs  : TIDERegs;             // Structure with drive register values.     bDriveNumber : Byte;                 // Physical drive number to send command to (0,1,2,3).     bReserved    : Array[0..2] of Byte;  // Reserved for future expansion.     dwReserved   : Array[0..3] of DWORD; // For future use.     bBuffer      : Array[0..0] of Byte;  // Input buffer.   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; // PSendCmdInParams;   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 := PChar(@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; 谁有办法在98下读硬盘序列号而不用重起的？有控件也行啊！调试通过了就给分，谢谢大 家！

petterhuang · 2003-04-24

程序1： unit Unit_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 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; 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; type TForm_Main = class(TForm) Edit_HardDiskNumber: TEdit; Label1: TLabel; Button_Get: TButton; procedure Button_GetClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form_Main: TForm_Main; implementation {$R *.dfm} 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 for future use. Must be zero. end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize: DWORD; // Buffer size in bytes irDriveRegs: TIDERegs; // Structure with drive register values. bDriveNumber: Byte; // Physical drive number to send command to (0,1,2,3). bReserved: array[0..2] of Byte; // Reserved for future expansion. dwReserved: array[0..3] of DWORD; // For future use. bBuffer: array[0..0] of Byte; // Input buffer. 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; // PSendCmdInParams; 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('/.:', 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('/.', 0, 0, nil, CREATE_NEW, 0, 0); if hDevice = INVALID_HANDLE_VALUE then Exit; try pInData := PSendCmdInParams(@Buffer); pOutData := PChar(@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; procedure TForm_Main.Button_GetClick(Sender: TObject); begin Edit_HardDiskNumber.Text := GetIdeDiskSerialNumber; end; end. 程序2： 获取主板的工业序列号完全可以实现，注意是硬盘外壳上的序列号，不是格式化后的序列 号，C语言源程序如下（注：该程序由顶尖高手丁凯所写）： #include <windows.h> #include <stdio.h> WORD pw[256]; static DWORD idt, int_idt; static DWORD Base; static WORD Entry; #pragma warning (disable:4035) static int inp(WORD rdx) { _asm xor eax, eax _asm mov dx, rdx _asm in al, dx } static WORD inpw(WORD rdx) { _asm xor eax, eax _asm mov dx, rdx _asm in ax, dx } static void outp(WORD rdx, int ral) { _asm mov dx, rdx _asm mov eax, ral _asm out dx, al } static int WaitIde() { int al; while ((al=inp(0x1F7))>=0x80) ; return al; } static void ReadIDE() { int al; int i; WaitIde(); outp(0x1F6,0xA0); al = WaitIde(); if ((al&0x50)!=0x50) return; outp(0x1F6,0xA0); outp(0x1F7,0xEC); al = WaitIde(); if ((al&0x58)!=0x58) return; for (i=0;i<256;i++) { pw = inpw(0x1F0); } } static void __declspec( naked ) NowInRing0() { _asm { push ebp mov ebp,esp call ReadIDE cli mov ebx, int_idt mov ax, Entry mov word ptr [ebx-4], ax mov eax, Base shr eax, 16 mov [ebx+2], ax sti leave iretd } } void GetIDEInfo() { DWORD dwExcept; dwExcept = (DWORD)NowInRing0; _asm { mov eax, fs:[0] push eax sidt [esp-02h] pop ebx mov idt, ebx add ebx, 0x1C mov int_idt, ebx mov eax, [ebx] mov [Base], eax mov ax, [ebx-4] mov [Entry], ax cli mov esi, dwExcept push esi mov [ebx-4], si shr esi, 16 mov [ebx+2], si pop esi sti int 3 } } main() { char s[80]; register i,j; GetIDEInfo(); for (i=0,j=0;i<10;i++) { s[j++]=pw[10+i]>>8; s[j++]=pw[10+i]&0xFF; } s[j] = 0; printf("Serial=%s", s); return 0; }

petterhuang · 2003-04-24

使用S.M.A.R.T. Ioctl API获取IDE硬盘序列号 (http://www.tommstudio.com) -------------------------------------------------------------------------------- 通过它你可以获取型号名称, firmware revision，序列号以及其它有关IDE硬盘的信息. 　 回答: 相关构件: IdeInfo.zip 许多FAQ中推荐使用GetVolumeInformation来获取硬盘序列号。但是那获取的是卷的序列号，而不是硬盘的序列号。卷的序列号是在分区格式化时生成或修改。一些公司使用复制工具来为全部新计算机安装软件----通过将一个硬盘复制到其它硬盘，当然，所有这些计算机上卷的信息（包括序列号）都是相同的。 我建议另外的一个方法：获取真正硬盘的序列号。 不幸的是，下列代码只能工作在IDE硬盘上。 　 //获取第一个IDE硬盘的序列号 function GetIdeSerialNumber : SerialNumber; const IDENTIFY_BUFFER_SIZE = 512; type 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 for future use. Must be zero. end; TSendCmdInParams = packed record // Buffer size in bytes cBufferSize : DWORD; // Structure with drive register values. irDriveRegs : TIDERegs; // Physical drive number to send command to (0,1,2,3). bDriveNumber : BYTE; bReserved : Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; // Input buffer. end; 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 : DWORD; wMultSectorStuff : Word; ulTotalAddressableSectors : DWORD; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of BYTE; end; PIdSector = ^TIdSector; TDriverStatus = packed record // 驱动器返回的错误代码，无错则返回0 bDriverError : Byte; // IDE出错寄存器的内容，只有当bDriverError 为 SMART_IDE_ERROR 时有效 bIDEStatus : Byte; bReserved : Array[0..1] of Byte; dwReserved : Array[0..1] of DWORD; end; TSendCmdOutParams = packed record // bBuffer的大小 cBufferSize : DWORD; // 驱动器状态 DriverStatus : TDriverStatus; // 用于保存从驱动器读出的数据的缓冲区，实际长度由cBufferSize决定 bBuffer : Array[0..0] of BYTE; end; var hDevice : THandle; cbBytesReturned : DWORD; ptr : PChar; SCIP : TSendCmdInParams; aIdOutCmd : Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte; IdOutCmd : TSendCmdOutParams absolute aIdOutCmd; 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 := ''; // 如果出错则返回空串 if SysUtils.Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000 begin // 提示! 改变名称可适用于其它驱动器，如第二个驱动器： '/. hDevice := CreateFile( '/.', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 ); end else // Version Windows 95 OSR2, Windows 98 hDevice := CreateFile( '/.', 0, 0, nil, CREATE_NEW, 0, 0 ); if hDevice=INVALID_HANDLE_VALUE then Exit; try FillChar(SCIP,SizeOf(TSendCmdInParams)-1,#0); FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#0); cbBytesReturned := 0; // Set up data structures for IDENTIFY command. with SCIP do begin cBufferSize := IDENTIFY_BUFFER_SIZE; // bDriveNumber := 0; with irDriveRegs do begin bSectorCountReg := 1; bSectorNumberReg := 1; // if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0 // else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4); bDriveHeadReg := $A0; bCommandReg := $EC; end; end; if not DeviceIoControl( hDevice, $0007c088, @SCIP, SizeOf(TSendCmdInParams)-1, @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil ) then Exit; finally CloseHandle(hDevice); end; with PIdSector(@IdOutCmd.bBuffer)^ do begin ChangeByteOrder( sSerialNumber, SizeOf(sSerialNumber) ); (PChar(@sSerialNumber)+SizeOf(sSerialNumber))^ := #0; Result := PChar(@sSerialNumber); end; end; // 更多关于 S.M.A.R.T. ioctl 的信息可查看: // http://www.microsoft.com/hwdev/download/respec/iocltapi.rtf // MSDN库中也有一些简单的例子 // Windows Development -> Win32 Device Driver Kit -> // SAMPLE: SmartApp.exe Accesses SMART stats in IDE drives // 还可以查看 http://www.mtgroup.ru/~alexk // IdeInfo.zip - 一个简单的使用了S.M.A.R.T. Ioctl API的Delphi应用程序 // 注意: // WinNT/Win2000 - 你必须拥有对硬盘的读/写访问权限 // Win98 // SMARTVSD.VXD 必须安装到 // (不要忘记在复制后重新启动系统)

春意 · 2003-04-24

http://www.delphibbs.com/delphibbs/dispq.asp?LID=339210

玩命 · 2003-04-24

以下是全套源码： http://lsqcom.xiloo.com/DISK.rar

jieson · 2003-04-24

c语言我看不懂，拜托给个delphi的，2楼，控件在哪？

petterhuang · 2003-04-24

我也没调试过，但是“玩命”的源码是可以用的，你看看

jieson · 2003-04-24

to 玩命： 我晕~~程序还没打开就弹出无数的错误 难道我系统有问题？？

jieson · 2003-04-24

拜托大家看看我的问题先，我需要的是98下不需要重起的！

52free · 2003-04-24

好像只能取得某个分区的序列号吧

52free · 2003-04-24

unit Unit_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 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; 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; type TForm_Main = class(TForm) Edit_HardDiskNumber: TEdit; Label1: TLabel; Button_Get: TButton; procedure Button_GetClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form_Main: TForm_Main; implementation {$R *.dfm} 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 for future use. Must be zero. end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize: DWORD; // Buffer size in bytes irDriveRegs: TIDERegs; // Structure with drive register values. bDriveNumber: Byte; // Physical drive number to send command to (0,1,2,3). bReserved: array[0..2] of Byte; // Reserved for future expansion. dwReserved: array[0..3] of DWORD; // For future use. bBuffer: array[0..0] of Byte; // Input buffer. 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; // PSendCmdInParams; 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('/.:', 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('/.', 0, 0, nil, CREATE_NEW, 0, 0); if hDevice = INVALID_HANDLE_VALUE then Exit; try pInData := PSendCmdInParams(@Buffer); pOutData := PChar(@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; procedure TForm_Main.Button_GetClick(Sender: TObject); begin Edit_HardDiskNumber.Text := GetIdeDiskSerialNumber; end; end.

LeeChange · 2003-04-24

function TPanelX.GetSerial: string; const IDENTIFY_BUFFER_SIZE = 512; type    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 for future use. Must be zero.   end;   TSendCmdInParams = packed record     // Buffer size in bytes     cBufferSize: DWORD;     // Structure with drive register values.     irDriveRegs: TIDERegs;     // Physical drive number to send command to (0,1,2,3).     bDriveNumber: BYTE;     bReserved: array[0..2] of Byte;     dwReserved: array[0..3] of DWORD;     bBuffer: array[0..0] of Byte; // Input buffer.   end;   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: DWORD;     wMultSectorStuff: Word;     ulTotalAddressableSectors: DWORD;     wSingleWordDMA: Word;     wMultiWordDMA: Word;     bReserved: array[0..127] of BYTE;   end;   PIdSector = ^TIdSector;   TDriverStatus = packed record     // 驱动器返回的错误代码，无错则返回0     bDriverError: Byte;     // IDE出错寄存器的内容，只有当bDriverError 为 SMART_IDE_ERROR 时有效     bIDEStatus: Byte;     bReserved: array[0..1] of Byte;     dwReserved: array[0..1] of DWORD;   end;   TSendCmdOutParams = packed record     // bBuffer的大小     cBufferSize: DWORD;     // 驱动器状态     DriverStatus: TDriverStatus;     // 用于保存从驱动器读出的数据的缓冲区，实际长度由cBufferSize决定     bBuffer: array[0..0] of BYTE;   end; var   hDevice: Thandle;   cbBytesReturned: DWORD;   SCIP: TSendCmdInParams;   aIdOutCmd: array[0..(SizeOf(TSendCmdOutParams) + IDENTIFY_BUFFER_SIZE - 1) - 1] of Byte;   IdOutCmd: TSendCmdOutParams absolute aIdOutCmd; 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 := ''; // 如果出错则返回空串 if SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT then begin // Windows NT, Windows 2000 // 提示! 改变名称可适用于其它驱动器，如第二个驱动器： '//./PhysicalDrive1/' hDevice := CreateFile('//./PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); end else // Version Windows 95 OSR2, Windows 98 hDevice := CreateFile('//./SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0); if hDevice = INVALID_HANDLE_VALUE then Exit; try FillChar(SCIP, SizeOf(TSendCmdInParams) - 1, #0); FillChar(aIdOutCmd, SizeOf(aIdOutCmd), #0); cbBytesReturned := 0; // Set up data structures for IDENTIFY command. with SCIP do begin cBufferSize := IDENTIFY_BUFFER_SIZE; // bDriveNumber := 0; with irDriveRegs do begin bSectorCountReg := 1; bSectorNumberReg := 1; // if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0 // else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4); bDriveHeadReg := $A0; bCommandReg := $EC; end; end; if not DeviceIoControl(hDevice, $0007C088, @SCIP, SizeOf(TSendCmdInParams) - 1, @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil) then Exit; finally CloseHandle(hDevice); end; with PIdSector(@IdOutCmd.bBuffer)^ do begin ChangeByteOrder(sSerialNumber, SizeOf(sSerialNumber)); (Pchar(@sSerialNumber) + SizeOf(sSerialNumber))^ := #0; Result := string(sSerialNumber); end; end;

petterhuang · 2003-04-24

应该是我在2K下，你在98下结果不同。

玩命 · 2003-04-24

我申请的破网站可能不太好

bbs-wqt · 2003-04-24

希望是吧！

jieson · 2003-04-25

几乎所有人贴的都和我贴的差不多，大家怎么就不仔细看看我的问题呢，不过1楼的贴的c++版的到是真的解决了问题，给分了。

jieson · 2003-04-25

多人接受答案了。

98下如何获得硬盘序列号？(100分)

jieson

Unregistered / Unconfirmed

petterhuang

Unregistered / Unconfirmed

petterhuang

Unregistered / Unconfirmed

春意

Unregistered / Unconfirmed

玩命

Unregistered / Unconfirmed

jieson

Unregistered / Unconfirmed

petterhuang

Unregistered / Unconfirmed

jieson

Unregistered / Unconfirmed

jieson

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

petterhuang

Unregistered / Unconfirmed

玩命

Unregistered / Unconfirmed

bbs-wqt

Unregistered / Unconfirmed

jieson

Unregistered / Unconfirmed

jieson

Unregistered / Unconfirmed

Similar threads