Дата компиляции

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
Аватара пользователя
kotompazb
постоялец
Сообщения: 156
Зарегистрирован: 21.06.2012 13:03:39
Откуда: Novosibirsk, xUSSR

Дата компиляции

Сообщение kotompazb »

Здравствуйте.
Поиском найти не удалось.
Ситуация следующая. В окошке "About" у меня кроме версии программы выводится также дата создания этой версии = дата компиляции. Сейчас я каждый раз меняю эту дату в ручную. Вопрос: можно ли как-то в рантайме узнать время компиляции программы, каким-то образом сохранив его, например, при компиляции?
kazalex
постоялец
Сообщения: 296
Зарегистрирован: 01.06.2012 14:54:10

Сообщение kazalex »

Код: Выделить всё

Var

 fs  : TFormatSettings;

begin

 fs.DateSeparator   := '/';
 fs.ShortDateFormat := 'y/m/d';

 CompilerInfo.Caption := Format('Compiled by FreePascal %s at %s, %s', [{$INCLUDE %FPCVERSION}, FormatDateTime(DefaultFormatSettings.LongDateFormat, StrToDateTime({$INCLUDE %DATE}, fs)), {$INCLUDE %TIME}]);
Аватара пользователя
kotompazb
постоялец
Сообщения: 156
Зарегистрирован: 21.06.2012 13:03:39
Откуда: Novosibirsk, xUSSR

Сообщение kotompazb »

О! Огромнейшее спасибо!

Добавлено спустя 8 минут 29 секунд:
О! Огромнейшее спасибо!
Аватара пользователя
Little_Roo
энтузиаст
Сообщения: 639
Зарегистрирован: 27.02.2009 18:56:36
Откуда: Санкт-Петербург

Сообщение Little_Roo »

Или из пакета RxLib от alexs использовать компонент TRxVersionInfo
kazalex
постоялец
Сообщения: 296
Зарегистрирован: 01.06.2012 14:54:10

Сообщение kazalex »

Little_Roo писал(а):Или из пакета RxLib от alexs использовать компонент TRxVersionInfo

Этот компонент вообще для другого.
Аватара пользователя
kotompazb
постоялец
Сообщения: 156
Зарегистрирован: 21.06.2012 13:03:39
Откуда: Novosibirsk, xUSSR

Сообщение kotompazb »

Little_Roo писал(а):Или из пакета RxLib от alexs использовать компонент TRxVersionInfo

Спасибо. Мне достаточно вполне предыдущего метода:)

Добавлено спустя 4 минуты 16 секунд:
А версия у меня и так читается без проблем.
Ответить