Function FileSetDate(Arch:longint; FechaHora:double):Longint; Var FechaHoraUTC,FechaHoraLocal:FileTime; FechaHoraS:SystemTime; Begin FileSetDate:=0; DateTimeToSystemTime(FechaHora,FechaHoraS); SystemTimeToFileTime(FechaHoraS,FechaHoraLocal); LocalFileTimeToFileTime(FechaHoraLocal,FechaHoraUTC); if SetFileTime(Arch,nil,nil,@FechaHoraUTC) then FileSetDate:=GetLastError End; Function FileSetDate(Nombre:Unicodestring;FechaHora:double):Longint; Var Arch:Longint; Begin Arch:=FileOpen(Nombre,fmOpenReadWrite); FileSetDate:=FileSetDate(Arch,FechaHora); FileClose(Arch) End;