Форум: "Потрепаться";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Как определить ферсию программы   Найти похожие ветки 

← →
Alexei K   (2003-02-18 13:49) [0]

Здравситвуйте
Где то в рассылке пробегала функция определения версии (только одной функцией, т.е. не нужно тащить весь комбайн (от версии и до комментов)), а щас найти не могу.
Помогите

---

← →
ION T   (2003-02-18 16:35) [1]


var
TBuildInfo = (biFull, biNoBuild, biMajor, biMinor, biRelease, biBuild, biCute);

{ Returns verson info from FileName in dotted decimal string format:
Release.Major.Minor.Build (biFull)
or Release.Major.Minor (biNoBuild)
or Release.MajorMinor (biCute)
or each one separately (biMajor, biMinor, biRelease, biBuild) }
function GetBuild(const BuildInfo: TBuildInfo): string;
var
dwI, dwJ: dword;
VerInfo: Pointer;
VerValue: PVSFixedFileInfo;
begin
Result := "";
dwI := GetFileVersionInfoSize(PChar(Application.ExeName), dwJ);
if dwI > 0 then
begin
VerInfo := nil;
try
GetMem(VerInfo, dwI);
GetFileVersionInfo(PChar(Application.ExeName), 0, dwI, VerInfo);
VerQueryValue(VerInfo, "\", Pointer(VerValue), dwJ);
case BuildInfo of
biFull:
begin
with VerValue^ do
begin
Result := IntToStr(dwFileVersionMS shr 16) + ".";
Result := Result + IntToStr(dwFileVersionMS and $FFFF) + ".";
Result := Result + IntToStr(dwFileVersionLS shr 16) + ".";
Result := Result + IntToStr(dwFileVersionLS and $FFFF);
end;
end;
biNoBuild:
begin
with VerValue^ do
begin
Result := IntToStr(dwFileVersionMS shr 16) + ".";
Result := Result + IntToStr(dwFileVersionMS and $FFFF) + ".";
Result := Result + IntToStr(dwFileVersionLS shr 16)
end;
end;
biCute:
begin
with VerValue^ do
begin
Result := IntToStr(dwFileVersionMS shr 16) + ".";
Result := Result + IntToStr(dwFileVersionMS and $FFFF);
Result := Result + IntToStr(dwFileVersionLS shr 16)
end;
end;
biRelease: Result := IntToStr(VerValue^.dwFileVersionMS shr 16);
biMajor: Result := IntToStr(VerValue^.dwFileVersionMS and $FFFF);
biMinor: Result := IntToStr(VerValue^.dwFileVersionLS shr 16);
biBuild: Result := IntToStr(VerValue^.dwFileVersionLS and $FFFF);
end;
finally
FreeMem(VerInfo, dwI);
end;
end;
end;

---

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

Форум: "Потрепаться";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх

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