win98/2000/xp 下能得到主板、BIOS、硬盘序列号的DLL（高分寻求不够可加）

Question

[email protected]
如有请发到我的邮箱
要求：
  是正式版的，没有设什么毛病的，并请提供使用说明
  如果没有全部功能，部分也行(硬盘要能得到物理序列号的）如果有源码再加100分
收到马上结帐
不合格者请勿扰

Answer 1

http://expert.csdn.net/Expert/topic/2843/2843782.xml?temp=.6150324

Answer 2

http://expert.csdn.net/Expert/topic/2853/2853856.xml?temp=.5662042

Answer 3

http://search.csdn.net/expert/topic/53/5301/2001/2/2/63762.htm
http://search.csdn.net/expert/topic/53/5301/2003/5/28/1842908.htm

Answer 4

我用bioshelp(有源码)获取了主板序列号(但很多主板查出来是空号)
我用jclsysinfo获取了CPU的序列号
我用网上的一些资料获取了IDE硬盘的序列号(只是在2000和XP下)
但我用三种方法组合获取了一个唯一的主机号（包含一些计算方法）
你要吗(无私奉献，我做这个只是因为我的一个客户需要我给他的软件加上密码保护)

Answer 5

bioshelp在网上可以下载
jclsysinfo是JCL+JVCL组件的一部分(包含所有源码)
------------------
获取IDE硬盘物理序列号(说是在98下使用必须加一个动态连接库，windows本身的，不需要花$)、只能获取IDE，不能获取SCSI硬盘
hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
就是这个语句，必须是注册一个动态连接库后才能正常，好象是与S.M.A.R.T技术相关的。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;
  Result := Trim(Result);
end;

Answer 6

高手们指点，如何在Win2003下获取硬盘序列号？
 楼上的方法在2003下取不到。