ياشباب من يريد معرفة السيريال نمبر للهارد ديسك يدخل هنا

مرحبا

جهز فورم وضع عليه مكون Edit وزر ثم أكتب الكود التالي في الزر

Var

HDSerialNumber : DWORD;

MaxCl : DWORD;

FileSF : DWORD;

Sn : String;

Begin

GetVolumeInformation('c:',nil,0,@HDSerialNumber,MaxCl,FileSF,nil,0;

Sn := IntToHex(HiWord(HdSerialNumber),4)+'-'+intToHex(LoWord(HDSerialNumber),4);

Edit1.Text := Sn;

End;