Herkese hayırlı bayramlar öncelikle benim bu sorduğum soruyu çok kez sordum ama bir cevap alamadım ve yılmadım halen sormaya devam edicem aşşağıda kaynak kodlara göre harddisk volue serial number denilen numara alınıyor fakat bu numaranın istediğim şekilde değiştirilebildiğini yazan pek çok insan var ama kimseden cevap gelmiyor bu numarayı benzer bir numara ile kendi belirlediğim bir numara ile değiştirmek istiyorum bunun için elinde kod olan arkadaşlar lütfen yardım edin procedure TForm1. Button1Click ; var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; SerialNumber : string; begin GetVolumeInformation('C:\', nil,0,@VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil,0); SerialNumber := IntToHex(HiWord , 4) + '-' +IntToHex(LoWord , 4); Memo1. Lines. Add ; end;