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

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

function GetHardDiskSerial(const DriveLetter: Char): string; 
var 
  NotUsed:     DWORD; 
  VolumeFlags: DWORD; 
  VolumeInfo:  array[0..MAX_PATH] of Char; 
  VolumeSerialNumber: DWORD; 
begin 
  GetVolumeInformation(PChar(DriveLetter + ':\'), 
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, 
    VolumeFlags, nil, 0); 
  Result := Format('Label = %s   VolSer = %8.8X', 
    [VolumeInfo, VolumeSerialNumber]) 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(GetHardDiskSerial('c')); 
end;

Here is the translation of the Delphi code snippet into Russian:

Функция GetHardDiskSerial

• Она использует функцию Windows API GetVolumeInformation для получения информации о указанном объеме.
• Первый параметр - путь к объему (в этом случае, буква жёсткого диска, за которой следует двоеточие и обратная косая черта).
• Второй параметр - буфер для приема имени объема. В этом случае, он установлен в nil, что означает, что не будет предоставлен буфер.
• Третий параметр - размер буфера для имени объема.
• Четвёртый параметр - указатель на переменную, которая получит серийный номер объема (в формате hexadecimal).
• Пятый и шестой параметры не используются в этом реализации.
• Переменная Result присваивается форматированной строке с помощью Format, которая конкатенирует имя объема и серийный номер.

Процедура Button1Click

• Эта процедура вызывается при клике кнопки с ID 1.
• Она просто вызывает функцию GetHardDiskSerial с буквой жёсткого диска 'C' в качестве входного параметра и отображает результат в сообщении с помощью ShowMessage.

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

Также помните, что функция GetVolumeInformation может не работать на всех системах или для всех типов объемов. Всегда хорошая идея проверять возвращаемое значение и обрабатывать любые ошибки, которые могут возникнуть.

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

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

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

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