急,急,急,(200分)

candylyg · 2003-04-25

求够一读取硬盘物理序列号和CPU ID号的delphi代码, candylyg@sina.com ICQ:37434800

driver · 2003-04-25

TCPUIDARRAY=array[1..4] of Longint; function GetCPUID : TCPUIDARRAY; assembler;register; asm   PUSH    EBX         {Save affected register}   PUSH    EDI   MOV     EDI,EAX     {@Resukt}   MOV     EAX,1   DW      $A20F       {CPUID Command}   STOSD {CPUID[1]}   MOV     EAX,EBX   STOSD               {CPUID[2]}   MOV     EAX,ECX   STOSD               {CPUID[3]}   MOV     EAX,EDX   STOSD               {CPUID[4]}   POP     EDI {Restore registers}   POP     EBX end; function GetCPUIDStr:String; var   CPUID:TCPUIDARRAY; begin   CPUID:=GetCPUID;   Result:=IntToHex(CPUID[1],4)+IntToHex(CPUID[2],4)+IntToHex(CPUID[3],4)+IntToHex(CPUID[4],4); end; 给100分吧

原野飞侠 · 2003-04-25

获取磁盘序列号   摘　要：不是取得卷标号，而是物理ID号 关键字：磁盘序列号 类　别：系统控制     type   MIDPtr = ^MIDRec;   MIDRec = Record     InfoLevel: word;     SerialNum: LongInt;     VolLabel: Packed Array [0..10] of Char;     FileSysType: Packed Array [0..7] of Char;   end; function GetDriveSerialNum(MID: MIDPtr; drive: Word): Boolean; assembler; asm   push  DS    { Just for safety, I dont think its really needed }   mov   ax,440Dh { Function Get Media ID }   mov   bx,drive    { drive no (0-Default, 1-A ...) }   mov   cx,0866h  { category and minor code }   lds   dx,MID      { Load pointeraddr. }   call  DOS3Call   { Supposed to be faster than INT 21H }   jc    @@err   mov   al,1           { No carry so return TRUE }   jmp   @@ok  @@err:   mov   al,0           { Carry set so return FALSE }  @@ok:   pop   DS            { Restore DS, were not supposed to change it } end; procedure TForm1.NrBtnClick(Sender: TObject); var   Info: MIDRec; begin   Info.InfoLevel:=0; { Information Level }   If GetDriveSerialNum(@Info,0) then  { Do something with it... }     ListBox.Items.Add(IntToStr(Info.SerialNum)+' '+Info.VolLabel); end; -------------------------------------------------------------------------------- BOOL GetVolumeInformation(     LPCTSTR lpRootPathName, // address of root directory of the file system     LPTSTR lpVolumeNameBuffer, // address of name of the volume     DWORD nVolumeNameSize, // length of lpVolumeNameBuffer     LPDWORD lpVolumeSerialNumber, // address of volume serial number     LPDWORD lpMaximumComponentLength, // address of system's maximum filename length     LPDWORD lpFileSystemFlags, // address of file system flags     LPTSTR lpFileSystemNameBuffer, // address of name of file system     DWORD nFileSystemNameSize  // length of lpFileSystemNameBuffer   &nbsp

; -------------------------------------------------------------------------------- 获取SCSI硬盘序列号 问题提出/摘要: 对于IDE硬盘，你可以使用S.M.A.R.T. API的函数来获取序列号。但对SCSI硬盘，它无法工作。但我们可以使用DeviceIoControl来获取DeviceIoControl设备序列号.     回答:   下面是代码：   program ScsiSN;     // 目的：简单的控制台程序来显示SCSI硬盘的序列号     {$APPTYPE CONSOLE}     uses   Windows, SysUtils;     //-------------------------------------------------------------   function GetDeviceHandle( sDeviceName : String ) : THandle;   begin   Result := CreateFile( PChar('//./'+sDeviceName),   GENERIC_READ or GENERIC_WRITE,   FILE_SHARE_READ or FILE_SHARE_WRITE,   nil, OPEN_EXISTING, 0, 0 )   end;     //-------------------------------------------------------------   function ScsiHddSerialNumber( DeviceHandle : THandle ) : String;   {$ALIGN ON}   type   TScsiPassThrough = record   Length : Word;   ScsiStatus : Byte;   PathId : Byte;   TargetId : Byte;   Lun : Byte;   CdbLength : Byte;   SenseInfoLength : Byte;   DataIn : Byte;   DataTransferLength : ULONG;   TimeOutValue : ULONG;   DataBufferOffset : DWORD;   SenseInfoOffset : ULONG;   Cdb : Array[0..15] of Byte;   end;   TScsiPassThroughWithBuffers = record   spt : TScsiPassThrough;   bSenseBuf : Array[0..31] of Byte;   bDataBuf : Array[0..191] of Byte;   end;   {ALIGN OFF}   var dwReturned : DWORD;   len : DWORD;   Buffer : Array[0..255] of Byte;   sptwb : TScsiPassThroughWithBuffers absolute Buffer;   begin   Result := '';   FillChar(Buffer,SizeOf(Buffer),#0);   with sptwb.spt do   begin   Length := SizeOf(TScsiPassThrough);   CdbLength := 6; // CDB6GENERIC_LENGTH   SenseInfoLength := 24;   DataIn := 1; // SCSI_IOCTL_DATA_IN   DataTransferLength := 192;   TimeOutValue := 2;   DataBufferOffset := PChar(@sptwb.bDataBuf)-PChar(@sptwb);   SenseInfoOffset := PChar(@sptwb.bSenseBuf)-PChar(@sptwb);   Cdb[0] := $12; // OperationCode := SCSIOP_INQUIRY;   Cdb[1] := $01; // Flags := CDB_INQUIRY_EVPD; Vital product data   Cdb[2] := $80; // PageCode Unit serial number   Cdb[4] := 192; // AllocationLength   end;   len := sptwb.spt.DataBufferOffset+sptwb.spt.DataTransferLength;   if DeviceIoControl( DeviceHandle, $0004d004, @sptwb, SizeOf(TScsiPassThrough), @sptwb, len, dwReturned, nil )   and ((PChar(@sptwb.bDataBuf)+1)^=#$80)   then   SetString( Result, PChar(@sptwb.bDataBuf)+4,   Ord((PChar(@sptwb.bDataBuf)+3)^) );   end;       //=============================================================   var   hDevice : THandle = 0;   sSerNum, sDeviceName : String;     begin   sDeviceName := ParamStr(1);   if sDeviceName='' then   begin   WriteLn;   WriteLn('Display SCSI-2 device serial number.');   WriteLn;   WriteLn('Using:');   WriteLn;   if Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT/2000   WriteLn(' ScsiSN PhysicalDrive0')   else   WriteLn(' ScsiSN C:');   WriteLn(' ScsiSN Cdrom0');   WriteLn(' ScsiSN Tape0');   WriteLn;   Exit;   end;   hDevice := GetDeviceHandle(sDeviceName);   if hDevice=INVALID_HANDLE_VALUE then   WriteLn('Error on GetDeviceHandle: ',SysErrorMessage(GetLastError))   else   try   sSerNum := ScsiHddSerialNumber(hDevice);   if sSerNum='' then   WriteLn('Error on DeviceIoControl: ',   SysErrorMessageGetLastError))   else   WriteLn('Device '+sDeviceName   +' serial number = "',sSerNum,'"');   finally   CloseHandle(hDevice);   end;   end.     // 以下站点可获取更多关于SCSI命令的信息:   // ftp://ftp.t10.org/t10/drafts/scsi-1/     // ftp://ftp.t10.org/t10/drafts/spc/     // ftp://ftp.t10.org/t10/drafts/spc2/

candylyg · 2003-04-25

to driver Undeclared inentifier' TCPUIDARRAY'

driver · 2003-04-25

你得将这一句写在上面： type   TCPUIDARRAY=array[1..4] of Longint;

candylyg · 2003-04-25

我希望能支持所有WIN32平台,并支持maxtor,seagate,IBM,quantun,scsi,等绝大部分主流硬盘. 谢谢.

candylyg · 2003-04-25

to driver 还是不行,你写个最简单的例程吧.

driver · 2003-04-25

怎么能不行呢？那儿不行啊？ 类型的声明放在TForm1=TForm上面 procedure TForm1.Button1Click(Sender:TObject) begin   edit1.text:=GetCPUIDStr; end;

candylyg · 2003-04-25

to 原野飞俠 operand size mismatch (lds dx,MID0 undeclared identifier'dos3call'

candylyg · 2003-04-25

to driver 得到的是不可修改的物理序列号吗? 支持各厂商及各型号的CPU吗?

candylyg · 2003-04-25

to原野飞俠 老兄,为什么会出错呢?缺少一个函数.

bobodon · 2003-04-28

我有cpuID和IDE serial读取的缘代码, 在D5,6,7下测试通过. QQ:37434800

candylyg · 2003-04-28

接受答案了.

急,急,急,(200分)

candylyg

Unregistered / Unconfirmed

driver

Unregistered / Unconfirmed

原野飞侠

Unregistered / Unconfirmed

candylyg

Unregistered / Unconfirmed

driver

Unregistered / Unconfirmed

candylyg

Unregistered / Unconfirmed

candylyg

Unregistered / Unconfirmed

driver

Unregistered / Unconfirmed

candylyg

Unregistered / Unconfirmed

candylyg

Unregistered / Unconfirmed

candylyg

Unregistered / Unconfirmed

bobodon

Unregistered / Unconfirmed

candylyg

Unregistered / Unconfirmed

Similar threads