Hard Disk Serial Number Delphi

Posted on by
Hard Disk Serial Number Delphi

How can I get an unique number for a specific PC, for example HDD Serial Number or Motherboard serial number? Hard Disk Physical Serial Number (delphi). 原贴: original Most FAQ manuals recommend to use GetVolumeInformation for extracting of 'harddisk serial number'. But it is the volume serial number, not harddisk s/n. It is assigned and changed during.

Your code is not working because you are passing a double-quote in the WMI class name. Change this code GetWMIstring(','Win32_DiskDrive','SerialNumber'); To this GetWMIstring(','Win32_DiskDrive','SerialNumber'); Btw, you can improve a lot your WMI function (GetWMIstring) if you follow the recommendations of the answer to this question.

Here is another translation from C++ to Delphi by Victor Derevyanko project: Because the first method (WithZeroRights) doesn't work for me, I wrote another for ReadIdeDriveAsScsiDriveInNT method: unit HDScsiInfo; interface uses Windows, SysUtils; const IDENTIFY_BUFFER_SIZE = 512; FILE_DEVICE_SCSI = $0000001b; IOCTL_SCSI_MINIPORT_IDENTIFY = ((FILE_DEVICE_SCSI shl 16) + $0501); IDE_ATA_IDENTIFY = $EC; // Returns ID sector for ATA. Posting this purely for completeness sake, and to possibly satisfy those interested or die hard hardware fanatics. Team Fortress 2 Rcon Tool. Alcazar Disco Defenders Download Youtube. I do not have a Pascal compiler at my disposal to test these routines on current Windows systems, but I do know this code worked back in the DOS era. Maybe it still works from a command prompt window.