|
Delphi: AjpdSoft Modificar fechas de fichero
Añadida a la sección Descargas la aplicación AjpdSoft Modificar fechas de fichero: permite modificar las fechas y horas de modificación, creación y último acceso de un fichero. La aplicación permite drag and drop (arrastrar y soltar), es suficiente con arrastrar y soltar un fichero y mostrará la fecha actual de creación, de modificación y de último acceso y permitirá cambiarlas. Liberamos el código fuente - source code en Borland Delphi 6 100% Open Source.
Características más importantes de AjpdSoft Modificar fechas de fichero
AjpdSoft Modificar fechas de fichero en funcionamientoAjpdSoft Modificar fechas de fichero permite seleccionar un fichero para mostrar la fecha y hora de creación, de modificación y de último acceso. También permite modificarlas para que el usuario seleccione las que desee. La aplicación modificará dichas fechas para que queden guardadas en el fichero. Para modificar la fecha de creación de un fichero, en primer lugar lo seleccionaremos pulsando el botón "..." o bien escribiendo la ruta y el nombre (o arrastrándolo y soltándolo en la aplicación): Seleccionaremos el fichero a modificar la fecha de creación: Marcaremos en "Fecha a modificar" la opción "Fecha de creación". En "Nueva fecha y hora" seleccionaremos la fecha y la hora que quedarán guardadas en el fichero como la fecha y la hora de modificación: Pulsaremos "Aplicar fecha" para guardar los cambios en el fichero: De la misma forma, podremos modificar la fecha y hora de modificación del fichero y la de último acceso. Aunque esta última fecha no quedará modificada, pues como fecha de último acceso quedará la del día y hora en que se modifique.
Instalación y configuración de AjpdSoft Modificar fechas de ficheroPodéis descargar el programa con el código fuente (freeware, gratuito) desde esta URL: Descarga gratuita (freeware) de AjpdSoft Modificar fechas de fichero Para el correcto funcionamiento sólo es necesario el fichero cambiarFechaFichero.exe, el resto de ficheros corresponden al código fuente y no son necesarios para su ejecución. La aplicación no necesita instalación de ningún tipo, el ficherocambiarFechaFichero.exe se puede ejecutar directamente.
Datos técnicos de AjpdSoft Modificar fechas de ficheroEsta aplicación ha sido desarrollada en el lenguaje de programación Borland Delphi 6. Si eres desarrollador de software y te has registrado en nuestra web (si aún no te has registrado puedes hacerlo desde aquí gratuitamente) puedes descargar el código fuente 100% Open Source (completo y totalmente gratuito) en Borland (ahora Codegear) Delphi 6: AjpdSoft Modificar fechas de fichero (Código fuente Open Source en Borland Delphi 6) AjpdSoft Modificar fechas de fichero ha sido testeada y funciona correctamente en equipos con sistemas operativos: Windows 98, Windows XP, Windows 2000 Server, Windows Server 2003, Windows Vista y Windows Seven (7). A quién va dirigida AjpdSoft Modificar fechas de ficheroLa aplicación va dirigida a administradores de sistemas y usuarios que deseen, por algún motivo, cambiar la fecha de un fichero (tanto la de creación como la de modificación). También puede ser útil para estudiantes que tengan que realizar algún proyecto de ejemplo de modificación de datos de un fichero con Delphi.
Anexo
unit UnidadUtilidadFechas; interface uses Windows, SysUtils, DateUtils; type TFileDateKind = (fdkCreated, fdkLastModified, fdkLastAccessed); function obtenerFechaFichero (const FileName: string; out FileDate: TDateTime; SpecificFileDate: TFileDateKind): boolean; function cambiarFechaFichero (const FileName: string; FileDate: TDateTime; SpecificFileDate: TFileDateKind): boolean; implementation function obtenerFechaFichero (const FileName: string; out FileDate: TDateTime; SpecificFileDate: TFileDateKind): boolean; var fHandle : integer; Succeed : boolean; FileCreationDate, FileLastModifiedDate, FileLastAccessedDate : TFileTime; TempFileTime : TFileTime; TempSystemTime : TSystemTime; begin fHandle := FileOpen(FileName, fmShareDenyNone); FileDate := 0.0; if fHandle < 0 then Succeed := false else begin Succeed := GetFileTime(fHandle, @FileCreationDate, @FileLastAccessedDate, @FileLastModifiedDate); FileClose(fHandle); if Succeed then begin case SpecificFileDate of fdkCreated : FileTimeToLocalFileTime(FileCreationDate, TempFileTime); fdkLastModified : FileTimeToLocalFileTime(FileLastModifiedDate, TempFileTime); fdkLastAccessed : FileTimeToLocalFileTime(FileLastAccessedDate, TempFileTime); end; if FileTimeToSystemTime(TempFileTime, TempSystemTime) then FileDate := EncodeDateTime(TempSystemTime.wYear, TempSystemTime.wMonth, TempSystemTime.wDay, TempSystemTime.wHour, TempSystemTime.wMinute, TempSystemTime.wSecond, TempSystemTime.wMilliSeconds) else Succeed := false; end; end; Result := Succeed; end; function cambiarFechaFichero (const FileName: string; FileDate: TDateTime; SpecificFileDate: TFileDateKind): boolean; var fHandle : integer; Succeed : boolean; TempFileTime, FinalFileTime : TFileTime; TempSystemTime : TSystemTime; pFileCreationDate, pFileLastModifiedDate, pFileLastAccessedDate : PFileTime; begin pFileCreationDate := nil; pFileLastModifiedDate := nil; pFileLastAccessedDate := nil; fHandle := FileOpen(FileName, fmShareDenyWrite or fmOpenWrite); if fHandle < 0 then Succeed := false else begin DecodeDateTime(FileDate, TempSystemTime.wYear, TempSystemTime.wMonth, TempSystemTime.wDay, TempSystemTime.wHour, TempSystemTime.wMinute, TempSystemTime.wSecond, TempSystemTime.wMilliSeconds); SystemTimeToFileTime(TempSystemTime, TempFileTime); LocalFileTimeToFileTime(TempFileTime, FinalFileTime); case SpecificFileDate of fdkCreated : pFileCreationDate := @FinalFileTime; fdkLastModified : pFileLastModifiedDate := @FinalFileTime; fdkLastAccessed : pFileLastAccessedDate := @FinalFileTime; end; Succeed := SetFileTime(fHandle, pFileCreationDate, pFileLastAccessedDate, pFileLastModifiedDate); FileClose(fHandle); end; Result := Succeed; end; end. Artículos relacionados
CréditosArtículo realizado íntegramente por Alonsojpd miembro fundador del proyecto AjpdSoft. Anuncios
Enviado el Lunes, 25 enero a las 23:16:31 por ajpdsoft
|
|