{*******************************************************}

{                                                       }

{       Pascal Script Source File                       }

{       Run by RemObjects Pascal Script in CnWizards    }

{                                                       }

{       Generated by CnPack IDE Wizards                 }

{                                                       }

{*******************************************************}

program AutoInsertCompileTime;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

var

  CurPath: string;

  Lines: TStringList;

begin

    CurPath := ExtractFilePath(CnOtaGetCurrentProjectFileName)+'my.inc';

    Lines:= TStringList.Create;

    try

      Lines.Add('const FCompileDate = ''' + FormatDatetime('yyyy-mm-dd', Date()) + ''';');

      Lines.Add('const FCompileTime = ''' + FormatDatetime('hh:nn:ss', Time()) + ''';');

      Lines.Add('const FCompileDateTime = ''' + FormatDatetime('yymmdd.hhnnss', Now) + ''';');

      Lines.SaveToFile(CurPath);

    finally

      Lines.Free;

    end;

end.