Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
ВнизКак бы выудить версию программы из свойств проекта? Найти похожие ветки
← →
KSergey (2003-05-12 15:39) [0]Так понимаю, что это ресурс, но вот как бы к этой информации подступиться?...
← →
Вася Пупкин (2003-05-12 15:49) [1]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;
← →
KSergey (2003-05-12 16:10) [2]Благодарю, попробую!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c