VPF::Как встроить билд? - Форум программистов

Canada

Дата 11.11.2010, 05:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Здравствуйте. В программе автоматически генерируется билд, можно его версию и версию программы засунуть в заголовок формы только встроенными дерективами без отдельного считывания версии файла через винду?

~FoX~

Дата 11.11.2010, 08:34 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Canada,

Цитата(Canada @ 11.11.2010, 06:33

)

можно его версию и версию программы засунуть в заголовок формы только встроенными дерективами без отдельного считывания версии файла через винду?

Нильзя... Не нравится считывать версию через винду, считывай непосредственно из ресурсов екзешника...

--------------------

…множественность никогда не следует полагать без необходимости…

Canada

Дата 11.11.2010, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

~FoX~, подскажите, пожалуйста, как это? smile

~FoX~

Дата 11.11.2010, 11:06 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Код


function GetMyVersion: string;
type
  TVerInfo=packed record
    Nevazhno: array[0..47] of byte;    // offset 48 byte
    Minor, Major, Build, Release: word; // Версия
  end;
var
  s: TResourceStream;
  v: TVerInfo;
begin
  result:='';
  try
    s:=TResourceStream.Create(HInstance, '#1', RT_VERSION); // достаём ресурс
    if s.Size>0 then begin
      s.Read(v,SizeOf(v)); // читаем нужные нам байты
      result:=IntToStr(v.Major)   + '.' + //Старший номер версии
                IntToStr(v.Minor)     + '.' + //Средний номер версии
                IntToStr(v.Release)   + '.' + //Релиз
                IntToStr(v.Build);            //Билд
    end;
    s.Free;
  except;
  end;
end;

Это сообщение отредактировал(а) ~FoX~ - 11.11.2010, 11:07

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »