取硬盘系列号:  
  function   GetIdeSerialNumber:   pchar;     //获取硬盘的出厂系列号；  
      const   IDENTIFY_BUFFER_SIZE   =   512;  
  type  
        TIDERegs   =   packed   record  
            bFeaturesReg:   BYTE;  
            bSectorCountReg:   BYTE;  
            bSectorNumberReg:   BYTE;  
            bCylLowReg:   BYTE;  
            bCylHighReg:   BYTE;  
            bDriveHeadReg:   BYTE;  
            bCommandReg:   BYTE;  
            bReserved:   BYTE;  
      end;  
      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;  
      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  
          bDriverError:   Byte;  
          bIDEStatus:   Byte;  
          bReserved:   array[0..1]   of   Byte;  
          dwReserved:   array[0..1]   of   DWORD;  
      end;  
      TSendCmdOutParams   =   packed   record  
          cBufferSize:   DWORD;  
          DriverStatus:   TDriverStatus;  
          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  
  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;  
  with   SCIP   do   begin  
  cBufferSize   :=   IDENTIFY_BUFFER_SIZE;  
  with   irDriveRegs   do   begin  
  bSectorCountReg   :=   1;  
  bSectorNumberReg   :=   1;  
  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;  
   
  调用:  
  Edit1.Text:=strpas(GetIdeSerialNumber)  

已有 4 条评论 »

1. samool April 26th, 2009 at 12:30 pm

   [quote=long]可以取SATA硬盘的系列号吗？[/quote]可以的，串口硬盘也可以获得。

2. long April 26th, 2009 at 05:47 am

   可以取SATA硬盘的系列号吗？

3. samool September 5th, 2007 at 08:47 am

   [quote=游客]谢谢.拿过来试试.学习下.[/quote]
   合作愉快！！欢迎常来坐坐哦。

4. 游客 September 4th, 2007 at 06:31 pm

   谢谢.拿过来试试.学习下.