Başlangıç > Kodlar > Delphi ile Harddiskin volume numarasını öğrenmek

Delphi ile Harddiskin volume numarasını öğrenmek

26/12/2010 Yorum bırakın Go to comments

Hard diskin volume seri numarasını bulur.


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;

Hakan Çalışkan


TD Software


Kategoriler:Kodlar Etiketler:, , , , , , , , , , , , ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Yorum bırakın