obtener fechas fichero

[meme]

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);