Как узнать серийный номер диска? в Delphi

procedure TForm1.Button1Click(Sender: TObject); 
var
  VolumeName, FileSystemName: array [0..MAX_PATH-1] of Char; 
  VolumeSerialNo: DWord; 
  MaxComponentLength, FileSystemFlags: Integer; 
begin
  GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName,MAX_PATH); 
  Memo1.Lines.Add('VName = '+VolumeName); 
  Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8)); 
  Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength)); 
  Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4)); 
  Memo1.Lines.Add('FSName = '+FileSystemName); 
end; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 4,91 из 5)
Загрузка...
Добавить комментарий