Fecha de compilacion

[MAXIUM]

Buscalo en esta sección, la respuesta ya esta.

[ecfisa]

Hola jafera.

Probá de este modo:

Código Delphi [-]
function FileGetDateTime(Nombre: string): TDateTime;
var
  Hnd: Integer;
begin
  Hnd := FileOpen(Nombre, 0);
  try
    Result:= FileDateToDateTime(FileGetDate(Hnd));
  finally
    FileClose(Hnd);
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
var
  FechaDT: TDateTime;
  FechaST: string; 
begin
  FechaDT:= FileGetDateTime('C:\Windows\System32\ChkDsk.exe');
  FechaST:= DateToStr(Fecha); // fecha 
end;

Saludos.

[jafera]

Hola, estoy intentando implementar la funcion que me pasasteis y me lanza este error:

[Error] ModulDades.pas(192): Declaration of 'filegetdatetime' differs from previous declaration

En private declaro la funcion

function FilegetdateTime : TDateTime;

Luego coloco la funcion y me lanza este error.

Que puedo hacer mal?

Gracias

Josep

[ecfisa]

Hola Jafera.

Si usás la funcion tál como está no te tendría que dar ese mensaje.

Pero si la querés declarar como privada de un Form, seria:

Código Delphi [-]
 ....
 private
    function FileGetDateTime(Nombre: string): TDateTime;
 end;

implementation
...
function TForm1.FileGetDateTime(Nombre: string): TDateTime;
...

El por qué del error es fácil de ver si comparas:

function FilegetdateTime : TDateTime;

function FileGetDateTime(Nombre: string): TDateTime;

Indudablemente en la primera falta la declaración del parámetro 'Nombre'.

Saludos.

[Lord Delfos]

Para sumar algo:

Este tema lo consulté una vez y llegué a la siguiente solución. A mí me ha funcionado de mil maravillas, pero requiere instalar las CNWizards (que de todas maneras son muy recomendables).

http://www.clubdelphi.com/foros/showthread.php?t=65520

Saludongons.

[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.