buffer:array[0..255]of   char;  
  a,b:dword;  
  serialNum:pdword;  
  begin  
  GetVolumeInformation(c:\,   Buffer,   SizeOf(Buffer),   SerialNum,   a,   b,   nil,   0);  
  Serial:=inttostr(SerialNum^);  
  end;  
   
  我用以上代码为何读过来的序列号都不一样，急

哪个不是硬盘序列号，而是卷标。  
  function   TForm1.GetIdeSerialNumber(Index:   byte):   PChar;  
  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/2000/XP/.net   ¸Ä±äÃû³Æ¿ÉÊÊÓÃÓÚÆäËüÇý¶¯Æ÷£¬ÈçµÚ¶þ¸öÇý¶¯Æ÷£º   \\.\PhysicalDrive1\  
                        //   also   can   be   SCSI0   SCSI1  
                hDevice   :=   CreateFile(PChar(\\.\PhysicalDrive+IntToStr(Index)),   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   :=   Pchar(@sSerialNumber);  
                end;  
  end;

哪个不是硬盘序列号，而是卷标。  
  function   TForm1.GetIdeSerialNumber(Index:   byte):   PChar;  
  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/2000/XP/.net   ¸Ä±äÃû³Æ¿ÉÊÊÓÃÓÚÆäËüÇý¶¯Æ÷£¬ÈçµÚ¶þ¸öÇý¶¯Æ÷£º   \\.\PhysicalDrive1\  
                        //   also   can   be   SCSI0   SCSI1  
                hDevice   :=   CreateFile(PChar(\\.\PhysicalDrive+IntToStr(Index)),   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   :=   Pchar(@sSerialNumber);  
                end;  
  end;

• 软件资讯
• 技术指南
• 开发文档
• 编程技术
• 程序编程
• 数据库技术
• 服务器
• 项目开发
• 游戏编程

• 软件开发
• 服务器技术
• 行业资讯
• 程序相关
• 编程博文

• 为什么总是出现不能加载web form类的错误？在线等待
• 如何用VB中的API函数实现模拟一次鼠标双击事件！
• GNU 上的 fun ： UNIX 错误信息
• InputStream是否要作close?
• 各位帮帮忙，在界面上贴个图片应该怎么做？为什么我做的总是出错呢？
• 两个服务器？
• 郁闷那，.net解决这个问题咋就这么难，帮忙啊。
• 完成端口同一时间能处理的socket最大数量能大于64么？
• 如何使有检查框（check)的tree控件产生父子结点画勾连动效应？
• 100分！！！哪位告诉我在哪下载reportbuilder for delphi6.0
• 一个小问题！请大家帮忙！：）
• 关于C++中的引用问题！！
• 高分求 ASP.NET 电子商务入门经典(VB.NET 编程篇) 源代码。
• 请帮我写一段在文件上穿过程中判断文件类型的程序
• 请教：C语言里，怎么提取系统当前的日期，并转换为长整型？谢谢大家。
• SQL2000标准版与企业版的区别？？？
• 高分求 ASP.NET 电子商务入门经典 源代码。
• 大侠们,怎样在c#中播放一个wave文件？
• 用vb做了个控件，如何去除不需要的系统自动生成的属性/事件？
• 简单问题