Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Авг

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

Posted by Chas under Delphi

А вопрос у меня такой как из моей программы узнать версию другой программы?

Yurk@
я пользуюсь короткой версией:

function GetFileVersion(FileName: string; var VerInfo : TVSFixedFileInfo): boolean;

var

  InfoSize, puLen: DWORD;

  Pt, InfoPtr: Pointer;

begin

  InfoSize := GetFileVersionInfoSize( PChar(FileName), puLen );

  FillChar(VerInfo, SizeOf(TVSFixedFileInfo), 0);

  if InfoSize > 0 then

  begin

    GetMem(Pt,InfoSize);

    GetFileVersionInfo( PChar(FileName), 0, InfoSize, Pt);

    VerQueryValue(Pt,'\',InfoPtr,puLen);

    Move(InfoPtr^, VerInfo, sizeof(TVSFixedFileInfo) );

    FreeMem(Pt);

    Result := True;

  end

  else

    Result := False;

end;
function ShowVersion(FileName:string):string;

var

  VerInfo : TVSFixedFileInfo;

begin

  if GetFileVersion(FileName, VerInfo) then

    Result:=Format('%u.%u.%u.%u',[HiWord(VerInfo.dwProductVersionMS), LoWord(VerInfo.dwProductVersionMS),

      HiWord(VerInfo.dwProductVersionLS), LoWord(VerInfo.dwProductVersionLS)])

  else

    Result:='------';

end;