Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как узнать серийный номер тома

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

   procedure TForm1.Button1Click(Sender: TObject);
   var
     VolumeName,
     FileSystemName     : array [0..MAX_PATH-1] of Char;
     VolumeSerialNo     : DWord;
     MaxComponentLength,
     FileSystemFlags    : DWORD;
   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;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru