Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-17098
Checist [root]
2003-02-24 21:47
2003.03.06
Выделенная ячейка


8-17199
BlackSun
2002-11-22 21:45
2003.03.06
Помогите насчет DirectX


1-17052
Yakudza
2003-02-24 20:33
2003.03.06
Русские символы


14-17385
lds
2003-02-16 20:52
2003.03.06
WinLIRC


6-17255
.nuke
2003-01-11 13:45
2003.03.06
Как узнать свой IP