Hard Disk Serial Number Delphi
Hi, Does everybody know a reliable way of obtaining hard disk serial number? (I've got 3 different approaches from 3 different sources. Only one worked with Delphi, and it crashes in some systems.) Thanx! Please, answer by e-mail. I need this as soon as posible.
Sergi Torres Molins. E-mail: a2016.@maduixa.finf.upv.es. Alumno Facultad Informatica - Universidad Politecnica Valencia. Valencia - Spain. Quote Hi, Does everybody know a reliable way of obtaining hard disk serial number?
(I've got 3 different approaches from 3 different sources. Only one worked with Delphi, and it crashes in some systems.) Thanx! Please, answer by e-mail. I need this as soon as posible. Sergi Torres Molins. E-mail: a2016.@maduixa.finf.upv.es.
Alumno Facultad Informatica - Universidad Politecnica Valencia. Valencia - Spain. This code is from a Jan 1 posting. Hopefully this will help you.
Get Hard Disk Serial Number using HardDriveInfo.DLL at SysTools Software. HardDriveInfo.DLL successfully reads hard disk serial.
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 IDENTIFYBUFFERSIZE = 512; FILEDEVICESCSI = $0000001b; IOCTLSCSIMINIPORTIDENTIFY = ((FILEDEVICESCSI shl 16) + $0501); IDEATAIDENTIFY = $EC; // Returns ID sector for ATA. Posting this purely for completeness sake, and to possibly satisfy those interested or die hard hardware fanatics. 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.
Serial Number Idm Gratis
Maybe it still works from a command prompt window.