PDA

Ver la Versión Completa : script para fecha


jafera
21-08-2013, 17:56:20
Buenas a todos.

Hace un tiempo atrás, abrí este hilo:
http://www.clubdelphi.com/foros/showthread.php?t=69508&highlight=script+cnpack

En el mismo conseguí poder obtener una fecha y una hora de compilación del programa, proceso el cual viene funcionando sin problemas en Delphi 6 y 7.

Ahora que estoy empezando las migraciones a Delphi XE2, veo que el script no funciona y que no escribe nada en el fichero .inc, lo deja en blanco.
Este es el proceso:


program Data_CompilacioB;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
var Lineas: TStringList;
begin
Lineas:= TStringList.Create;
try
Lineas.Add('const DataCompB = ''' + FormatDatetime('dd/mm/yyyy', Now) + ''';');
Lineas.Add('const HoraCompB = ''' + FormatDatetime('hh:nn', Now) + ''';');
Lineas.SaveToFile('C:\Bombers_1.0\DataCompilacioB.inc');
finally
Lineas.Free;
end;
end.


Alguna idea que me ilumine?

Cuando compilo un proyecto me busca los ficheros de fecha y hora de compilación de todos los proyectos, cosa que no debería ser, en D6 no lo hace.

Gracias

Josep