Скачать: CL | DM;

Как узнать версию, релиз, сборку программы   Найти похожие ветки 

← →
SAG   (2004-03-18 11:00) [0]

В ДЕлфях в опциях проекта можно активизировать опцию вставки информации о версии проекта в сам проект. Потом можно смотреть в свойствах файла инормацию о версии.
Вопрос состоит в том, как получить версию проекта в самом проекте и вывести ее, например при вызове формы "О программе".

---

← →
Vuk ©   (2004-03-18 11:19) [1]

Project->Options->Version Info->F1(Help)->Reading version information.

---

← →
SAG   (2004-03-18 11:21) [2]

ок

---

← →
Никто ©   (2004-03-18 15:22) [3]


unit VerInfo;
       
interface
uses Windows, SysUtils, Classes;
function GetVersion(Name:string):string;
implementation
function GetVersion(Name:string):string;
var
   VerSize,Temp:DWORD;
   VerInfo:array of byte;
   Buffer:Pointer;
   pint:^VS_FIXEDFILEINFO ;
begin
  Result:="";
  VerSize:= GetFileVersionInfoSize(pchar(Name),Temp);
  if VerSize<>0 then
  begin
       SetLength(VerInfo,VerSize);
       GetFileVersionInfo(pchar(Name),0,VerSize,@VerInfo[0]);
  end;
  if VerQueryValue( @VerInfo[0], "\",Buffer,temp) then
  begin
     pint:=buffer;
     Result:=IntToStr(HiWord(pint^.dwFileVersionMS))+"."
     +IntToStr(LoWord(pint^.dwFileVersionMS))
     +"."+IntToStr(HiWord(pint^.dwFileVersionLS))
     +"."+IntToStr(LoWord(pint^.dwFileVersionLS));
   end;
end;

end.


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c