Hola amigos!
Me podrían ayudar con este código?
El objetivo es que debe de cambiar la fecha de creación y la fecha de modificación de un archivo cualquiera.
Este código solo me cambia la fecha de modificación, pero la fecha de creación no... como lo puedo resolver?
Código Delphi
[-]function SetDateToFile(const FileName: string; Value: TDateTime): Boolean;
var
hFile: THandle;
begin
Result := False;
try
hFile := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
if (hFile > 0) then
Result := (FileSetDate(hFile, DateTimeToFileDate(Value)) = 0)
finally
FileClose(hFile);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetDateToFile('C:\CambiarFecha\prueba.txt', StrToDateTime('06/07/2011 15:30:11'));
end;
Gracias de antemano.
Saludos!