Fecha de compilacion

[jafera]

Ok ecfisa, era un problema de colocacion del código en los forms.

Con el ejemplo que pusiste del chkdsk funciona de perlas pero si le pongo la ruta de mi exe me da un error:

Debugger Exception Notification
---------------------------
Project Bombers.exe raised exception class EConvertError with message 'Invalid argument to date encode'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help

Que puede ser?

Lord_Delfos, vi tu codigo, tengo CnPack instaldo pero intente seguir el tutorial y no tuve narices a sacarlo en mi aplicación.

Es que hay muchas cosas que aun se me escapan, cree el script, con su .pas, etc pero luego no consegui ejecutarlo de ninguna manera.

Creo que se quedó algo en el tintero. Volveré a intentarlo de nuevo.

Gracias a todos

Josep

[Lord Delfos]

Para que corra hay que marcar la casilla fmBeforeCompile y listo. Uno no corre el script, se corre él solo al compilar.

[ecfisa]

Empezado por jafera

Ok ecfisa, era un problema de colocacion del código en los forms.

Con el ejemplo que pusiste del chkdsk funciona de perlas pero si le pongo la ruta de mi exe me da un error:

Debugger Exception Notification
---------------------------
Project Bombers.exe raised exception class EConvertError with message 'Invalid argument to date encode'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help

Que puede ser?

Hola Jafera.


¿ Podés enviar el código donde se genéra el error ?

Saludos.

[ecfisa]

Hola de nuevo Jafera.

No es necesario que pongas el código, ya ví donde está el problema.

El procedimiento llama a FileOpen para obtener el Handle:

Código Delphi [-]
 Hnd := FileOpen(Nombre, 0);

E intenta abrir un archivo (el que se está ejecutando) que yá está abierto. ( Perdón por la obviedad... )

Así que no te va a servir para obtener el handle de la aplicación que está en ejecución.

Voy a investigar un poco a ver si se puede tomar algún atajo...

Si logro algo te comento.

Saludos.

[jafera]

Gracias ecfisa.

Ahora que ya habia aprendido a colocar la funcion en su sitio y que me las daba felices pues me sale esto, jejeje.

Gracias por vuestras respuestas y si sabemos como obtener los datos del fichero "abierto" pues perfecto, sino, intentaremos la solucion de Lord_Delfos la cual me parece correcta pero que no supe implementar en mi aplicacion todo y el mini tutorial que colgo.

Igual no llego a más y en vez de Delphi debo volver al antiguo Basic con sus lineas 10.20.30...., bromas a parte me encantan los retos y como soy obstinado no parare hasta sacarlo.

Josep

[ecfisa]

Hola Jafera.

Estaba seguro se podría lograr, solo había que saber donde buscar y es en TWin32FindData...

Probá este código:

Código Delphi [-]
uses Windows;

function GetFileDate(Nombre: string): TDateTime;
var
  SR: TSearchRec;
  LocalFileTime: TFileTime;
  SystemTime: TSystemTime;
begin
  if FindFirst(Nombre, $FF, SR) = 0 then
  begin
    FileTimeToLocalFileTime(SR.FindData.ftCreationTime, LocalFileTime);
    FileTimeToSystemTime(LocalFileTime, SystemTime) ;
    Result:= SystemTimeToDateTime(SystemTime);
  end;
end;

Ejemplos de llamada:

Código Delphi [-]
var
  dt: TDateTime;
begin
   dt:= GetFileDate(ParamStr(0));
   ShowMessage(DateToStr(GetFileDate(ParamStr(0))));
end;

Saludos.

[jafera]

Ahora si que funciona, solo que se debe borrar el exe antes de hacer un nuevo build para que no guarde la ultima fecha de creacion, pero esto es lo de menos.

Gracias

Josep

[jafera]

Lo he solucionado cambiando un parámetro el la linea siguiente:

Código Delphi [-]
 
FileTimeToLocalFileTime(SR.FindData.ftLastWriteTime, LocalFileTime);

Asi accedo a la fecha de ultima modificacion.

Ademas la variable dt y la asignacion del valor dt no son necesarios, funciona pasando directamente el valor a la etiqueta o edit que tengamos en el form

Código Delphi [-]
Label3.Caption:='Compilat el '+(DateToStr(GetFileDate(ParamStr(0))));

Saludos

Josep