Sayfayı Yazdır | Pencereyi Kapat


Harddiskin Seri Numarasının Bulmak

Kategori: DELPHI - 7
Eklenme Tarihi: 27 Haziran 2005
Zaman: 22 Mayıs 2012 12:49
Samanalevi Netkafe - http://www.samanalevi.com/bilgisayaroku/93.Harddiskin_Seri_Numarasinin_Bulmak_.html

Harddiskin seri numarasının bulunması;
procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',nil,0,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,                      0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);
end;

DELPHI - 7


Sayfayı Yazdır | Pencereyi Kapat 

http://www.samanalevi.com