Ver Mensaje Individual
  #1  
Antiguo 21-08-2013
Avatar de jafera
jafera jafera is offline
Miembro
 
Registrado: may 2007
Ubicación: Llagostera (Girona)
Posts: 582
Reputación: 18
jafera Va por buen camino
script para fecha

Buenas a todos.

Hace un tiempo atrás, abrí este hilo:
http://www.clubdelphi.com/foros/show...=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:

Código Delphi [-]
 
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
Responder Con Cita