Как добавить дату/время компиляции?

← →
xKL (2007-02-02 06:28) [0]

Доброе время суток!
Как, например, на Label1.Caption повесить сабж, чтобы в runtime"е высвечивался?
Спасибо.

← →
имя (2007-02-02 06:59) [1]

Удалено модератором

← →
имя (2007-02-02 07:31) [2]

Удалено модератором

← →
brother © (2007-02-02 10:10) [3]

1. время билда присваивай константе
2. ну и в ллэйбл ее)
зы тока не забывай время при билде менять...

← →
Desdechado © (2007-02-02 10:57) [4]

Не проще ли в свойствах проекта сделать автоинкремент версий и показываьб версию, а не какую-то абстрактную дату?

← →
novill © (2007-02-02 11:07) [5]

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

на форуме прогбегал - надо в архивах смотреть...

← →
novill © (2007-02-02 11:29) [6]

примерно за август 2006

← →
novill © (2007-02-02 11:35) [7]

вот че нашел..., а лучше открой ту тему, там еще пару исправлений было по ходу...

Джо © (16.08.06 02:58)
У меня в ряде старых проектов нужно было вместо номера версии (а она, в силу некоторых причин, обновлялась очень часто) выводить дату и время компиляции проекта.
Проблему решил написанием нехитрого AddIn"а , подключаемого к IDE.

Вот текст модуля CompileTimeExpert.pas.

{
AddInNotifier, срабатывающий при компиляции проекта.
Помещает в каталог с главным файлом проекта файл CompileDateTime.inc
с объявлением констант, содержащих актуальную дату и время компиляции проекта.

Автор: Каминский С.А.
}

unit CompileTimeExpert;

interface
uses Windows, ExptIntf, ToolIntf;

type

TCompileTimeNotifier = class(TIAddInNotifier)
public
procedure FileNotification(NotifyCode: TFileNotification;
const FileName: string; var Cancel: Boolean); override;
procedure EventNotification(NotifyCode: TEventNotification;
var Cancel: Boolean); override;
end;

procedure Register;

implementation
uses SysUtils;

var
Notifier: TCompileTimeNotifier;

procedure Register;
begin
//
end;

procedure TCompileTimeNotifier.EventNotification(
NotifyCode: TEventNotification; var Cancel: Boolean);
var
Fv: TextFile;
Fn: string;
begin
if (NotifyCode = enBeforeCompile) and (ToolServices.GetProjectName <> "") then
begin
Fn := ExtractFilePath (ToolServices.GetProjectName) +
"CompileDateTime.inc";
AssignFile (Fv,Fn);
try
Rewrite (Fv);
WriteLn (Fv, "//");
WriteLn (Fv, "// Auto-generated compile datetime file for " +
ExtractFileName (ToolServices.GetProjectName) + " project");
WriteLn (Fv, "// Include it in your project with {$include CompileDateTime.inc} directive");
WriteLn (Fv, "//");

WriteLn (Fv, "const");
WriteLn (Fv, " _CompileDateTime = ", FloatToStr(Now));
WriteLn (Fv, " _CompileTimeStr = ", TimeToStr(Now));
WriteLn (Fv, " _CompileDateStr = ",DateToStr(Now));
WriteLn (Fv, " _CompileDateTimeStr = ",DateTimeToStr(Now));
finally
CloseFile (Fv);
ToolServices.ReloadFile(Fn);
end;
end;
end;

procedure TCompileTimeNotifier.FileNotification(
NotifyCode: TFileNotification; const FileName: string;
var Cancel: Boolean);
begin
end;

initialization
Notifier := TCompileTimeNotifier.Create;
ToolServices.AddNotifierEx(Notifier);

finalization
ToolServices.RemoveNotifier(Notifier);
Notifier.Free;

end.

← →
Anatoly Podgoretsky © (2007-02-02 11:42) [8]

При частом обновление еще важнее номер версии, чем дата. При том, что это делается автоматически.

← →
имя (2007-02-02 16:15) [9]

Удалено модератором
Примечание: Spam

← →
имя (2007-02-02 18:44) [10]

Удалено модератором

← →
Чапаев © (2007-02-02 18:52) [11]

Удалено модератором

← →
имя (2007-02-02 23:51) [12]

Удалено модератором
Примечание: Spam

← →
Strate © (2007-02-03 00:06) [13]

Задам вопросик тут-же:

Как выцепить номер версии, билда и прочего? Рантайм естественно..

← →
Германн © (2007-02-03 01:41) [14]

> Strate © (03.02.07 00:06) [13]
>
> Задам вопросик тут-же:
>
> Как выцепить номер версии, билда и прочего? Рантайм естественно.
> .

1. GetFileVersionInfoSize()
2. GetFileVersionInfo()
3. VerQueryValue()
+F1

← →
имя (2007-02-03 02:30) [15]

Удалено модератором
Примечание: Spam

← →
имя (2007-02-03 05:11) [16]

Удалено модератором
Примечание: спам

← →
имя (2007-02-03 23:42) [17]

Удалено модератором

← →
имя (2007-02-04 02:31) [18]

Удалено модератором

← →
имя (2007-02-04 09:18) [19]

Удалено модератором

← →
имя (2007-02-04 15:13) [20]

Удалено модератором

← →
имя (2007-02-04 19:15) [21]

Удалено модератором

← →
имя (2007-02-04 20:11) [22]

Удалено модератором
Примечание: Spam

← →
имя (2007-02-04 23:23) [23]

Удалено модератором
Примечание: Spam

Что ж за спамерская ветка-то? Не закрыть ли ее, тем более, кажется, что все уже по тебе было сказано.

> Джо © (05.02.07 02:02) [24]
>
> Что ж за спамерская ветка-то? Не закрыть ли ее, тем более,
> кажется, что все уже по тебе было сказано.
>

И чем раньше, тем меньше забот для модераторов!
И чем эта ветка такая особая!?
Кстати ответили не только автору сабжа, но и ещё и некоему Артуру!

← →
имя (2007-02-05 11:09) [26]

Удалено модератором

← →
имя (2007-02-05 14:10) [27]

Удалено модератором

Как добавить дату/время компиляции? Найти похожие ветки