версия exe-файла

[eks-s]

Подскажите пожалуйста, как извлечь информацию о версии программы? Конкретно, мой exe-шник, версия 1.0.3.45. Как из него это выдернуть в стрингу например

[mihali4]

Версия программы хранится в ресурсах. VERSIONINFO своей программы можно извлечь из ресурса с именем '#1'. В данном ресурсе версия программы всегда хранится по смещению 49. Вот пример кода, который достаёт версию из себя:
function GetMyVersion:string;
type
TVerInfo=packed record
Nevazhno: array[0..47] of byte; // ненужные нам 48 байт
Minor,Major,Build,Release: word; // а тут версия
end;
var
s:TResourceStream;
v:TVerInfo;
begin
result:='';
try
s:=TResourceStream.Create(HInstance ,'#1',RT_VERSION); // достаём ресурс
if s.Size>0 then begin
s.Read(v,SizeOf(v)); // читаем нужные нам байты
result:=IntToStr(v.Major)+'.'+IntTo Str(v.Minor)+'.'+ // вот и версия...
IntToStr(v.Release)+'.'+IntToStr(v. Build);
end;
s.Free;
except; end;
end;

(Вновь совет от Snowy)

[Andrei]

Сообщение от Алексей eks-s ^ii^

Подскажите пожалуйста, как извлечь информацию о версии программы? Конкретно, мой exe-шник, версия 1.0.3.45. Как из него это выдернуть в стрингу например

Сам когда-то пытался разобраться в этом. Что из этого получилось можно посмотреть здесь:

Информация о версии: http://platonov-andrei.narod.ru/Delp...rsion_Info.htm

Читать информацию: http://platonov-andrei.narod.ru/Delp...rsion_Info.htm