如何得出硬盘的物理大小及硬盘出厂序列号(100分)

wind_cloudy · 2001-06-13

用disksize函数可获得驱动器的大小. function DiskSize(Drive: Byte): Int64; DiskSize returns the size in bytes of the specified drive,  where 0 = Current, 1 = A, 2 = B, etc.

terry_lzs · 2001-06-13

我有一个与硬件相关的控件，能够获得硬件的基本信息，更重要的是有源码的哦，要不要？

snake · 2001-06-13

这里有 http://delphi.antdown.com/folder.asp?id=28&Folder_name=各类源码

micony · 2001-06-13

这里看一看 http://delphibbs.com/delphibbs/dispq.asp?lid=1648

无题 · 2001-06-13

读硬盘序列号 procedure TForm1.Button1Click(Sender: TObject);   var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;   begin     if GetVolumeInformation('c:/', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum^); end;

尘莽 · 2001-06-13

人家是要硬盘的物理系列号呀，我知道的也就这样了。

smilboy · 2001-06-17

关注

Vinson · 2001-06-17

这个问题已经讨论了N遍了,请用"序列号"作为关键字查询一下吧!

z1234 · 2001-06-17

虽然讨论很多遍但一直没有完美解决方案！要么得到逻辑序列号毫无意义，要么要带个DLL 很不爽。

WiseAnt · 2001-06-18

这里有一份本人上传的源程序，也就是“要么要带个DLL很不爽。”的程序。 但有全部的源代码，包括DLL，只是本人已没有心思花时间将其全部改写为*.Pas文件。 如果哪位有兴趣，不防写写。 http://delphi.antdown.com/dispdoc.asp?id=80

z1234 · 2001-06-18

为何您的程序在我的带钻石硬盘的机上运行一切正常，无任何错误信息。但就是不返回硬盘 序号：My Hd s/n:='';

cnaoszh · 2001-06-22

unit main; interface uses   Windows, Messages, SysUtils, 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   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} 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; function GetIdeDiskSerialNumber : String; var   hDevice : THandle;   cbBytesReturned : DWORD;   pInData : PSendCmdInParams;   pOutData : Pointer; // PSendCmdOutParams   Buffer : Array[0..BufferSize-1] of Byte;   srbControl : TSrbIoControl absolute Buffer; 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; procedure TForm1.Button1Click(Sender: TObject); begin EDIT1.TEXT:=TRIM(GetIdeDiskSerialNumber); end; END. //win98要 c:/windows/system/的smartvsd.vxd //copy to c:/windows/system/iosubsys //reboot your computer and ok //2000 and nt do not need

wjiachun · 2002-11-26

接受答案了.

如何得出硬盘的物理大小及硬盘出厂序列号(100分)

Zythum

Unregistered / Unconfirmed

wind_cloudy

Unregistered / Unconfirmed

terry_lzs

Unregistered / Unconfirmed

snake

Unregistered / Unconfirmed

micony

Unregistered / Unconfirmed

无题

Unregistered / Unconfirmed

尘莽

Unregistered / Unconfirmed

smilboy

Unregistered / Unconfirmed

Vinson

Unregistered / Unconfirmed

z1234

Unregistered / Unconfirmed

WiseAnt

Unregistered / Unconfirmed

z1234

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads