| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Версии из ресурсов! [D6, WinME]

HydraMarat ©   (2001-12-25 19:30:00) 

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

Спасибо.

---

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

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

---

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

Спасибо!

---

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

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;

---

Наверх