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

Вниз

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

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

Наверх




Память: 0.47 MB
Время: 0.036 c
1-70388
Top Gun
2003-05-10 23:06
2003.05.22
Где описана функция assigned ?


14-70525
Apok
2003-05-04 17:06
2003.05.22
Как назначить ip удаленной машине(мой комп сервер)?


1-70277
Nikos
2003-05-12 14:22
2003.05.22
Пара вопросов по TStringGrid


11-70196
Igit
2002-08-14 17:16
2003.05.22
Я словил реального глюка...


8-70410
Racer
2003-01-27 23:14
2003.05.22
Видимые/невидимые линии