Использование GetVolumeInformation в Inno Setup для получения серийного номера тома

Delphi , Программа и Интерфейс , Инсталяция

В процессе создания установщика с помощью Inno Setup может возникнуть необходимость получить серийный номер тома для определенной буквы диска. Одним из способов решения этой задачи является использование функции GetVolumeInformation из библиотеки ядра Windows (kernel32.dll). В этой статье мы рассмотрим, как импортировать и использовать эту функцию в скрипте Inno Setup для получения серийного номера тома.

Импорт функции GetVolumeInformation в Inno Setup

Для импорта функции GetVolumeInformation в скрипт Inno Setup, вам нужно добавить следующий код в раздел [Code]:

function GetVolumeInformation(
  lpRootPathName: PChar;
  lpVolumeNameBuffer: PChar;
  nVolumeNameSize: DWORD;
  var lpVolumeSerialNumber: DWORD;
  var lpMaximumComponentLength: DWORD;
  var lpFileSystemFlags: DWORD;
  lpFileSystemNameBuffer: PChar;
  nFileSystemNameSize: DWORD
): BOOL;
  external 'GetVolumeInformationA@kernel32.dll stdcall';

Также вам понадобятся вспомогательные функции для преобразования DWORD в два слова (HiWord и LoWord) и для преобразования слова в шестнадцатеричную строку (WordToHex):

function LoWord(dw: DWORD): WORD;
begin
  Result := WORD(dw);
end;

function HiWord(dw: DWORD): WORD;
begin
  Result := WORD((dw shr 16) and $FFFF);
end;

function WordToHex(w: WORD): string;
begin
  Result := Format('%.4x', [w]);
end;

Получение серийного номера тома

Теперь вы можете создать функцию, которая получает серийный номер тома для заданной буквы диска:

function FindVolumeSerial(const Drive: string): string;
var
  FileSystemFlags: DWORD;
  VolumeSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
begin
  Result := '';
  if GetVolumeInformation(
    PChar(Drive),
    '',
    0,
    VolumeSerialNumber,
    MaximumComponentLength,
    FileSystemFlags,
    '',
    0)
  then
    Result := WordToHex(HiWord(VolumeSerialNumber)) + '-' + WordToHex(LoWord(VolumeSerialNumber));
end;

Пример использования

Чтобы протестировать функцию, добавьте следующую функцию в раздел [Code] и запустите установщик:

function InitializeSetup(): Boolean;
begin
  MsgBox(FindVolumeSerial('c:\'), mbInformation, mb_Ok);
end;

При запуске установщика появится сообщение с серийным номером тома для диска C. Если вам нужно получить серийный номер тома для другого диска, просто измените параметр функции FindVolumeSerial на нужную букву диска.

Вывод

В этой статье мы рассмотрели, как импортировать и использовать функцию GetVolumeInformation в скрипте Inno Setup для получения серийного номера тома. Это может быть полезно в различных сценариях, таких как регистрация программного обеспечения или создание установщиков с персонализированными настройками. Надеемся, что эта информация поможет вам в ваших проектах!

Создано по материалам из источника по ссылке.

В данном контексте речь идет о получении серийного номера тома (диска) с помощью функции `GetVolumeInformation` в окружении Inno Setup.

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

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

:: Главная :: Инсталяция ::