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.
Комментарии и вопросы
:: 2011-08-05 09:43:55 :: re:Получить серийный номер диска
