11 comments. Current rating: (3 votes). Leave comments and/ or rate it.
Use this code to detect the hard disk's serial number:
Thanks to Jonathan Arnett for a corrected version of previously posted code.
uses
SysUtils, Dialogs, Windows;
function HDD_Serial : string;
var
SerialNum : dword;
a, b : dword;
Buffer : array [0..255] of char;
beginif GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
Result := IntToHex(SerialNum, 8)
else
Result := '';
end;
Send a message to
Subject
Comments:
2006-01-04, 08:38:19
Saysansay@yahoo.com from Indonesia
Nice, ok Can U Help Me How To Detec MotherBord,Vga card, Lan Card Etc Serial Number
Tank's Before
2006-11-09, 09:53:24
anonymous from Poland
It's partition serial number
2007-01-11, 21:49:01
anonymous from Romania
EXCELENT!!! i was looking for this for a verry long time
2007-01-24, 15:42:16
anonymous from United States
Correct, this is not useful as partition serial number and it can be changed after deleting and creating a new partition or by editing particular sector of a hard drive. It is not hard drive serial number exactly! Serial number you can get through hardware ports or with hardware library that allows direct access to the hardware under Win32.
2007-02-03, 03:32:58
anonymous from Iran
please help me to how configuration the version & model of the modem & cdrom of the
pc .
thanks.
2007-02-25, 03:45:22
anonymous from Iran
Thanks.
But I Want HDD phisical serial Number No Volume Info.
Can You Hel Me !
2007-08-06, 15:51:23
marxjo from Poland
You get partition serial numeber that is always different when you format it. Next time, this value is completely different.
2008-02-23, 04:28:54
anonymous from Czech Republic
Very g00d :)
2009-12-08, 02:05:20
anonymous from Madras, India
I want to know removable disk serial no.
2009-12-08, 08:07:49
Greg from Nigeria
Got this,this morning..
Hello Dearest One,
Hope you are fine. Thanks for responding to my mail.
I am Miss Patricia Tommi I am 24yrs old.. I am from Ivory coast in West Africa. I am the only child of (late) Dr Johnson Tommi who was one of the personal adviser to the late head of state Dr. Robert Guei. He was also the Managing Director of Tomson Company Ltd(Cocoa Merchants), Abdijan before his assassination along with my mother in a cold-blood one early morning.
I am constrained to contact you because of the maltreatment i am receiving from my step- mother. She planned to take away all my late father's treasury and properties from me since this unexpected death of my beloved Father and mother.
Meanwhile, i wanted to escape to Europe but she hide away my international passport and other valuable traveling documents. Luckily, i was able to find one of my late father's file which contains his important documents and escaped with it to the refugee camp where i am presently seeking asylum under the United Nations High Commission here in Dakar Capital of Senegal.
My father of blessed memory deposited the sum of seven million five hundred thousand dollars(US$7.5 m) in a bank with me as the next of kin. However, i shall forward you with the necessary information of the deposit on confirmation of your acceptance to assist me for the claim, transfer and investment of the fund in your country. This is important so that i will be able to go back to school to complete my study which stopped as a result of the crisis in my country.
I will compensate you with 20% of the total money for your assistance. And the balance shall be my investment capital, and will be transferred into my own personal account i shall open later when i arrive your country.
My hobbies are reading, swimming, traveling and going to interesting places. It is also my interest to get married after my study with a good and caring man.
My national language is french, but i speak English fluently because i was born and trained in Sierra Leone.
I will stop here and hope to hear from you soon. I will try to send you my picture in my next mail.