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

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;

1С:Предприятие — это (одновременно) и технологическая платформа, и пользовательский режим работы. Технологическая платформа предоставляет объекты (данных и метаданных) и механизмы управления объектами. Объекты (данные и метаданные) описываются в виде конфигураций. При автоматизации какой-либо деятельности составляется своя конфигурация объектов, которая и представляет собой законченное прикладное решение. Конфигурация создаётся в специальном режиме работы программного продукта под названием «Конфигуратор», затем запускается режим работы под названием «1С:Предприятие», в котором пользователь получает доступ к основным функциям, реализованным в данном прикладном решении (конфигурации).

купить 1с бухгалтерия базовая версия
тема на форуме

В Delphi XE можно выставить в свойствах автоинкрементное увеличение версии программы при компиляции. Можно ли, например при в событии Form1.Create, получить эту версию, чтобы присвоить ее какой-нибудь текстовой переменной? (читать всё…)