Как вывести на форму версию своей программы?

@duhar · Регистрация: 15.01.2012

Author24 — интернет-сервис помощи студентам

В Project\Optins\Version Info можно проставить версию программы и билд (хотя билд должен проставляться автоматически, но он почему то этого не делает, ну да пока отложим этот вопрос). Как вывести получить это значение версии? Служебных функций не нашел.

Спасибо за внимание.

@_taddy · 01.03.2012, 17:17

что-то такое

Delphi

1	GetFileVersionInfo(pchar(Filename),cardinal(0),VISize,VIBuff)

@duhar · 01.03.2012, 17:26 **[ТС]**

Сообщение от _taddy

что-то такое

Delphi

1	GetFileVersionInfo(pchar(Filename),cardinal(0),VISize,VIBuff)

посмотрим...

Добавлено через 4 минуты

Delphi

function vGetInfo(fileName: string): boolean;
var
  handle: cardinal;
begin
  infoSize:= GetFileVersionInfoSize(pchar(fileName), handle);
  result:= infoSize > 0;
  if result then begin
    getMem(info, infoSize);
    win32check(GetFileVersionInfo(pchar(fileName),
     handle, infoSize, info));
    p:= nil; len:= 0;
    VerQueryValue(info, '\VarFileInfo\Translation', p, len);
    langStr:= intToHex(integer(p^) and $FFFF, 4) +
              intToHex((integer(p^) and $FFFF0000) shr 16, 4);
  end
end;

вот такую штуку нашел, может пригодится кому

@duhar 61 / 44 / 6 Регистрация: 15.01.2012 Сообщений: 167
		1
	Как вывести на форму версию своей программы? 01.03.2012, 15:06. Показов 10510. Ответов 2 Метки нет (Все метки) В Project\Optins\Version Info можно проставить версию программы и билд (хотя билд должен проставляться автоматически, но он почему то этого не делает, ну да пока отложим этот вопрос). Как вывести получить это значение версии? Служебных функций не нашел. Спасибо за внимание. 0

	01.03.2012, 17:26

Опции темы

Как вывести на форму версию своей программы?

Решение