How can I get current building project by script about cnwizards HOT 7 CLOSED

{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program CompileTime;

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

procedure GenCompInt(S: String);
var
  CompileTime: string;
begin
  CompileTime := '';
  CompileTime := CompileTime + '// Author    : KngStr' + #13#10;
  CompileTime := CompileTime + '// Link      : http://www.kngstr.com/?compiletime' + #13#10;

  CompileTime := CompileTime + '// Compiler  : ' + CompilerName + #13#10;

  CompileTime := CompileTime + '// Useage    : ' + #13#10;
  CompileTime := CompileTime + '//   FormatCompileTime(''yyyymmddhhnn'')' + #13#10;
  CompileTime := CompileTime + 'const ' + #13#10 +
    '  CompileTime = ' + FloatToStr(Now) + ';' + #13#10 +
    '  CompileTimeInt = ' + FormatDateTime('yyyymmddhhnnss', Now) + ';' + #13#10#13#10;

  CompileTime := CompileTime + 'function FormatCompileTime(const Format: string): string;' + #13#10;
  CompileTime := CompileTime + 'begin' + #13#10 +
                  '  Result := FormatDateTime(Format, CompileTime);' + #13#10 +
                  'end;' + #13#10;

  SaveStringToFile(CompileTime, S + 'CompileTime.inc');
end;

var
  Project: IOTAProject;
begin
  if GetCurrentCompilingProject <> nil then
    Project := GetCurrentCompilingProject
  else if CnOtaGetCurrentProject <> nil then
    Project := CnOtaGetCurrentProject
  else
    Exit;

  GenCompInt(ExtractFilePath(Project.GetFileName));
end.