37 lines
760 B
Plaintext
37 lines
760 B
Plaintext
program MakeBuildInfo;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
{$R *.res}
|
|
|
|
uses
|
|
System.Classes,
|
|
System.SysUtils;
|
|
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
try
|
|
{ TODO -oUser -cConsole Main : Insert code here }
|
|
StrList := TStringList.Create;
|
|
|
|
StrList.Add('unit BuildInfo;');
|
|
StrList.Add('');
|
|
StrList.Add('interface');
|
|
StrList.Add('');
|
|
StrList.Add('const');
|
|
StrList.Add(' BUILD_DT = ''' + FormatDateTime('yyyy-mm-dd hh:nn:ss', Now) + ''';');
|
|
StrList.Add('');
|
|
StrList.Add('implementation');
|
|
StrList.Add('');
|
|
StrList.Add('end.');
|
|
|
|
StrList.SaveToFile('C:\taskToCSG\eCrmHE\EXE_eCrmHomeEdition\BuildInfo.pas', TEncoding.UTF8);
|
|
|
|
StrList.Free;
|
|
except
|
|
on E: Exception do
|
|
Writeln(E.ClassName, ': ', E.Message);
|
|
end;
|
|
end.
|