procedure hd_seri_bul;
var
maxbilesenuzunluk : DWORD;
SerialNumber : string;
HDserinum: DWORD;
sistemdosyaflag : DWORD;
begin
GetVolumeInformation('C:', nil, 0, @HDserinum, maxbilesenuzunluk, sistemdosyaflag, nil, 0);
SerialNumber := IntToHex(HiWord(HDserinum), 4) + '-' + IntToHex(LoWord(HDserinum), 4);
label1.caption:=(SerialNumber);
end;