Получить серийный номер диска 2

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;

Программный код на Delphi, который получает серийный номер диска 2 (C:) с помощью функции GetVolumeInformation.

Вот шаг за шагом, что код делает:

1. Он объявляет несколько переменных:
2. VolumeName: массив для хранения имени тома
3. FileSystemName: массив для хранения имени файловой системы
4. VolumeSerialNo: переменная для хранения серийного номера диска
5. MaxComponentLength: целочисленная переменная для хранения максимальной длины компонента

6. FileSystemFlags: целочисленная переменная для хранения флагов файловой системы

7. Он вызывает функцию GetVolumeInformation, передавая 'C:\' как имя тома и адреса ранее объявленных переменных.

8. После вызова функции, он добавляет несколько строк в текстовый блок (Memo1), отображающий полученную информацию:

9. Имя тома
10. Серийный номер (в формате шестнадцатеричной системы счисления)
11. Максимальная длина компонента
12. Флаги файловой системы (также в формате шестнадцатеричной системы счисления)
13. Имя файловой системы

Функция GetVolumeInformation получает информацию о указанном томе, включая его серийный номер. Это может быть полезно для идентификации диска или проверки, является ли он правильным для использования.

Обратите внимание, что этот код предполагает, что диск, обозначенный как C:\, действительно является диском 2 (вторым диском в системе). Если вы хотите получить серийный номер другого диска, замените 'C:\' на его путь.

Получение серийного номера диска 2 в программе на Delphi выполняется с помощью процедуры GetVolumeInformation, которая позволяет получить информацию о томке и файловой системе.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Диски ::