Hola,
Antes de nada, gracias por responder. He intentado adaptarlo a mis necesidades pero me da un error en las llamadas FileTimeTimeToLocalTime y FileTimeToSystemTime y no compila. Creo que el problema viene de la declaracion de fileTime. El codigo es el siguiente.
TSearchRec sR;
SYSTEMTIME sysTime;
FILETIME fileTime;
bool ok=false;
AnsiString result;
AnsiString archivo=Edit1->Text;
if(FindFirst(archivo,faAnyFile,sR)==0)
{
ok=FileTimeToLocalFileTime(sR.FindData.ftCreationTime,fileTime);
ok=FileTimeToSystemTime(fileTime,sysTime);
result=DateTimeToStr(sysTime);
}
FindClose(sR);
|