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




Вниз

Версии из ресурсов! 


HydraMarat   (2001-12-25 19:30) [0]

Здрасте! Подскажите, пожалуйста, как извлечь (программно) какое-нибудь значение из ресурса версии программы.

Спасибо.



Вадим   (2001-12-25 21:04) [1]

function GetApplicationVersion: string;
var
Pt,Pt2: Pointer;
Size,Size2: DWord;
Ver: array[0..3] of Integer; {0-version, 1-minor version, 2-release, 3-build}
const
t = ".";
begin
Size := GetFileVersionInfoSize(PChar(ParamStr(0)),Size2);
If Size > 0 then
begin
GetMem(Pt, Size);
try
GetFileVersionInfo(PChar(ParamStr(0)), 0,Size, PT);
// Получение информации о версии
VerQueryValue(Pt,"\", Pt2, Size2);
with TVSFixedFileInfo(Pt2^) do
begin
Ver[0] := HiWord(dwFileVersionMS);
Ver[1] := LoWord(dwFileVersionMS);
Ver[2] := HiWord(dwFileVersionLS);
Ver[3] := LoWord(dwFileVersionLS);
end;
finally
FreeMem(Pt);
Result := IntToStr(Ver[0]) + t + IntToStr(Ver[1]);
end;
end;
end;



HydraMarat   (2001-12-26 18:30) [2]

Спасибо!



HydraMarat   (2001-12-26 18:31) [3]

Вадим! Спасибо!




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




Наверх





Память: 0.72 MB
Время: 0.016 c
3-42369           Softmaster            2001-12-11 20:14  2002.01.14  
Проблема с группировкой в отчете при использовании QReport


4-42621           XM-AD                 2001-11-14 10:37  2002.01.14  
Как можно узнать директорию в которую пытаются сохранить файл?


3-42385           NLO                   2001-12-07 12:26  2002.01.14  
start transaction commit в процедуре InterBase 6


3-42380           bk                    2001-12-10 14:25  2002.01.14  
Ms Outlook


1-42494           Stexen                2001-12-25 20:42  2002.01.14  
ПО-МОЕМУ интересный вопрос