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

[AHBAR]

Здравствуйте!
Хотелось бы указать дату и время создания программы и выводить это например в окне About. Попытался загуглить - не помогло. Для начала просто составляю программу, состоящую из формы. Вот такой код не помогает, так как вставляет текущую дату и время, а не дату и время компиляции:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := DateToStr(Date)+'+'+TimeToStr(Time);
end;

[Кольша]

Ну как бы это как мне кажется не возможно..Хотя если вы научитесь отличать компиляцию от простого запуска то может быть и выйдет!

[Slym]

только версию может авто инкрементить (Build)

[superedward]

uses Windows;
var
  hf: HFILE;
  ob: _OFSTRUCT;
  lpCreationTime,
  lpLastAccessTime,
  lpLastWriteTime: _FILETIME;
  st: _SYSTEMTIME;
  sDate: string;
begin
  hf:=OpenFile(PAnsiChar(Application.ExeName), ob, OF_READ);
  GetFileTime(hf, @lpCreationTime, @lpLastAccessTime, @lpLastWriteTime);
  FileTimeToSystemTime(lpLastWriteTime,st);
  sDate:=PAnsiChar(CharAdd(2,IntToStr(st.wDay),'0'))+DateSeparator+
    PAnsiChar(CharAdd(2,IntToStr(st.wMonth),'0'))+DateSeparator+
    PAnsiChar(CharAdd(4,IntToStr(st.wYear),'0')){+' '+
    PAnsiChar(CharAdd(2,IntToStr(st.wHour),'0'))+TimeSeparator+
    PAnsiChar(CharAdd(2,IntToStr(st.wMinute),'0'))+TimeSeparator+
    PAnsiChar(CharAdd(2,IntToStr(st.wSecond),'0'))};

  _lclose(hf);
end

[Serge_Bliznykov]

superedward, попытка хорошая! Одно плохо, дата модификации EXE файла легко подаётся изменению извне.

AHBAR, я бы предложил или выбросить эту идею или, если уж реально надо, тогда делать сборку через командный файл, в нём производить нужные изменения в pas/dfm/inc файлах, и в этом же батнике выполнять компиляцию EXE.
Ну и погуглить/поискать на форуме, мне попадались похожие обсуждения...

[Lardes]

Все проще простого!)))

const
  SBuildData = '05.12.2012 11:56'; //здесь пишешь ту дату, которая тебе приятна)

и используй эту константу в:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Caption := 'Дата компиляции: ' + SBuildData;
end;

[kel_spb]

Есть вариант в королевстве Delphi, смотри также обсуждение
http://www.delphikingdom.com/asp/vie...catalogid=1143

[AHBAR]

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

Есть вариант в королевстве Delphi, смотри также обсуждение
http://www.delphikingdom.com/asp/vie...catalogid=1143

Этот вариант я находил на другом сайте, правда из-за моих слабых знаний у меня не получилось применить этот код. скорее всего на форму надо опускать какие-то объекты, тогда многие записи в кодах автоматически создаются, а я просто копировал. Видать не сутьба..

[Кольша]

Да не сутьба...вам и гиа сдать не судьба:DDD