Серийный номер тома HDD

Delphi , Файловая система , Диски

procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum : dword;
  a, b : dword;
  Buffer  : array [0..255] of char;
begin
  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer),
    @SerialNum, a, b, nil, 0) then
      Label1.Caption := IntToStr(SerialNum);
end;

Алексей Коган
FIDOnet 2:5064/7.69
Russia, Stavropol

Должен заметить, что GetVolumeInformation возвращает серийный номер ТОМА, а не винчестера, то есть, если заменить C:\ на D:\, то номерок-то и поменяется...

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

Перевод:

«Поиск серийного номера жесткого диска (HDD)!»

Код-сниппет написан на Delphi и использует функцию GetVolumeInformation для получения информации о томе, указанной в параметре 'c:\'. Это означает, что функция вернет серийный номер тома, связанного с диском C:.

Расшифровка кода:

1. Процедура Button1Click вызывается при нажатии кнопки с меткой Button1.
2. Переменные SerialNum, a и b объявлены как тип dword (32-разрядное целое число). Массив Buffer имеет размер 256 элементов.
3. В процедуре вызывается функция GetVolumeInformation с следующими параметрами:
   • 'c:\': Путь к директории, информацию о которой мы хотим получить.
   • Buffer: Буфер, который будет получать информацию о томе.
   • SizeOf(Buffer): Размер буфера в байтах.
   • @SerialNum: Указатель на переменную, которая будет получать серийный номер тома.
   • a и b: Эти параметры игнорируются (или не используются).
   • nil, 0: Эти параметры не используются.
4. Если вызов функции GetVolumeInformation успешен, метка (Label1) обновляется с помощью функции IntToStr с значением серийного номера тома в виде строки.

Обратите внимание на комментарий Алексея Когана, который подчеркивает важность понимания, что функция GetVolumeInformation возвращает серийный номер тома, а не серийный номер HDD. Это означает, что если изменить путь директории с 'c:\' на 'd:\', вернутся другой серийный номер.

В целом, этот код-сниппет получает серийный номер тома, связанного с диском C:, и отображает его в виде строки в метке при нажатии кнопки.

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

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

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

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