Ver Mensaje Individual
  #1  
Antiguo 15-11-2005
[Gunman] [Gunman] is offline
Miembro
 
Registrado: dic 2004
Ubicación: Pedreguer.
Posts: 355
Reputación: 22
[Gunman] Va por buen camino
Última Modificación de un archivo

Antes que nada, quiero dejar claro que sí he visto los otros hilos y sus sugerencias, de las cuales cabria destacar la de Neftalí, sin embargo, yo he intentado elaborar mi propia función, para ello he usado la función FindFirst, véase el código siguiente:
Código Delphi [-]
 function GetLocalModified(FileName: String): String;
 var
   SearchRec: TSearchRec;
   Modified: Real;
 begin
   if FindFirst(FileName, faAnyFile, SearchRec) = 0 then
   begin
     Modified := SearchRec.FindData.ftLastWriteTime.dwHighDateTime;
     Result :=  FloatToStr(Modified);
   end;
   FindClose(SearchRec);
 end;
SearchRec.FindData.ftLastWriteTime tiene en su interior dos propiedades, la dwHighDateTime y la dwLowDateTime, ambas son de tipo Cardinal. Mi pregunta, cómo obtengo la fecha de modificación des de esta función (FindFirst) si se puede, alguien lo ha intentado? Deberia usar la función de Neftalí?
__________________
l2prog.co.nr
Responder Con Cita