Обновлено: 01 декабря, 2018
Как узнать серийный номер диска? в 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;