Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как узнать версию проекта

Автор: МАИ 16.6.2013, 05:27

В опциях проекта можно задать версию модуля Major version, Minor version, Release и Build.
Уважаемые гуру, подскажите пожалуйста, как прочитать эти данные из самого модуля? smile

Автор: Poseidon 16.6.2013, 10:39

Код


function GetMyVersion:string;
type
  TVerInfo=packed record
    Nevazhno: array[0..47] of byte;
    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)+'.'+IntToStr(v.Minor)+'.'+ 
              IntToStr(v.Release)+'.'+IntToStr(v.Build);
    end;
  s.Free;
  except; end;
end;

Автор: МАИ 16.6.2013, 11:45

Работает!
Большое спасибо smile

Автор: bems 22.6.2013, 02:52

Цитата(Poseidon @ 16.6.2013, 10:39

)

except; end;

прелесть

Автор: Poseidon 22.6.2013, 03:20

Чесно? Скомунизжено "на просторах" тупым копи-пастом.