Как узнать версию программы

Delphi , Программа и Интерфейс , Приложение своё

Автор: Vit
WEB-сайт: http://forum.vingrad.ru

function FileVersion(AFileName: string): string;
var
  szName: array[0..255] of Char;
  P: Pointer;
  Value: Pointer;
  Len: UINT;
  GetTranslationString: string;
  FFileName: PChar;
  FValid: boolean;
  FSize: DWORD;
  FHandle: DWORD;
  FBuffer: PChar;
begin
  try
    FFileName := StrPCopy(StrAlloc(Length(AFileName) + 1), AFileName);
    FValid := False;
    FSize := GetFileVersionInfoSize(FFileName, FHandle);
    if FSize > 0 then
    try
      GetMem(FBuffer, FSize);
      FValid := GetFileVersionInfo(FFileName, FHandle, FSize, FBuffer);
    except
      FValid := False;
      raise;
    end;
    Result := '';
    if FValid then
      VerQueryValue(FBuffer, '\VarFileInfo\Translation', p, Len)
    else
      p := nil;
    if P <> nil then
      GetTranslationString := IntToHex(MakeLong(HiWord(Longint(P^)),
        LoWord(Longint(P^))), 8);
    if FValid then
    begin
      StrPCopy(szName, '\StringFileInfo\' + GetTranslationString +
        '\FileVersion');
      if VerQueryValue(FBuffer, szName, Value, Len) then
        Result := StrPas(PChar(Value));
    end;
  finally
    try
      if FBuffer <> nil then
        FreeMem(FBuffer, FSize);
    except
    end;
    try
      StrDispose(FFileName);
    except
    end;
  end;
end;

В качестве параметра задать имя программы, если своей программы:

FileVersion(Paramstr(0)); 

Перевод контента на русский язык:

Функция Delphi для извлечения информации о версии файла. Вот шаг за шагом, что она делает:

1. Она принимает имя файла в виде параметра AFileName.
2. Она выделяет память для имени файла и копирует входную строку туда.
3. Она проверяет, имеет ли файл информацию о версии, используя GetFileVersionInfoSize. Если размер равен 0, она возвращает пустую строку.
4. Если файл имеет информацию о версии, она выделяет память для хранения информации о версии и извлекает информацию о версии с помощью GetFileVersionInfo.
5. Затем она запрашивает информацию о версии для конкретной перевода (языка) с помощью VerQueryValue и извлекает файловую версию из нее.
6. Наконец, она возвращает извлеченную файловую версию в виде строки.

В примере кода вы вызываете эту функцию с командной аргументом Paramstr(0), который является именем программы.

Здесь есть альтернативное решение, использующее более современный подход:

function GetFileVersion(const FileName: string): string;
begin
  Result := '';
  try
    if not FileExists(FileName) then Exit;

    var
      vInfo: TVersionInfo;
    begin
      vInfo.cb := SizeOf(vInfo);
      if not GetFileVersionInfo(FileName, 0, vInfo.cb, @vInfo) then Exit;

      Result := vInfo.dwFileVersionMS.ToString;
    end;
  except
    Result := '';
  end;
end;

Функция использует запись TVersionInfo для извлечения информации о версии файла и возвращает ее в виде строки. Вы можете вызвать эту функцию с тем же командным аргументом:

GetFileVersion(Paramstr(0));

Обратите внимание, что в Delphi вы можете использовать директиву {$APPTYPE CONSOLE} в начале файла кода, чтобы сделать тестирование консольных приложений, таких как это, более простым.

Статья рассказывает о функции FileVersion, которая позволяет определить версию программы на основе информации в файле ресурсов.

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

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

:: Главная :: Приложение своё ::