Zeitstempel von Dateien ändern

[GroZ]

Hallo,

Ich habe eine kleine Funktion geschrieben um das Änderungsdatum von Dateien zu ändern. Jetzt möchte ich dass das Erstellungsdatum auch geändert wird.
Außerdem würde ich gerne wissen wie man die Zeit am besten angibt. Derzeit passiert das noch intern im Programm aber was ist wenn ich das Datum während der Laufzeit ändern möchte?
Genug geschrieben hier mein Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DateUtils, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SetFileDate(const FileName: string; NewDate: TDateTime): boolean;
var FileDate, FileHandle: Integer;
begin
  Result:= false;
  FileDate:= DateTimeToFileDate(NewDate);
  FileHandle:= FileOpen(FileName, fmOpenReadWrite or fmShareDenyWrite);
   if FileHandle > 0 then
   begin
    if FileSetDate(FileHandle, FileDate)= 0 then Result:= true;
     FileClose(FileHandle);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  if SetFileDate(OpenDialog1.FileName, EncodeDateTime(2016,4,4,15,30,0,0))
then
  ShowMessage('OK!')
else
  ShowMessage('Fehler!');
end;

end.

[Uwe Raabe]

Leider ist das weder in Delphi 5 noch in Delphi 7 bereits vorhanden, aber solltest du Zugriff auf die RTL-Sourcen einer aktuellen Delphi-Version haben, findest dort in System.IOUtils die Methode TFile.SetCreationTime .

[GroZ]

Muss ich bestimmt erst einbinden unter USES oder?
Werd es mal probieren. Danke erstmal

[GroZ]

Bin glaube ich zu doof aber IOUtils findet er nicht...

[Uwe Raabe]

Zitat von GroZ:

Bin glaube ich zu doof aber IOUtils findet er nicht...

Versuchst du das mit Delphi 5 oder Delphi 7? Dann lies nochmal meine Antwort:

Zitat:

Leider ist das weder in Delphi 5 noch in Delphi 7 bereits vorhanden

[Luckie]

Guck mal bei Assarbad: http://assarbad.net/en/stuff -> ftchange.zip: Filetime changer. Changes all three timestamps at once! Mit Source.

[GroZ]

Also kann ich das mit Delphi 7 nicht programmieren? Mist...
Nen fertiges Programm brauche ich eigentlich nicht. Würde das schon gerne selber machen..

[Klaus01]

.. bei ftchange sind doch die sourcen dabei..

Grüße
Klaus

[Uwe Raabe]

Zitat von GroZ:

Würde das schon gerne selber machen..

Die entsprechende Funktion heißt SetFileTime.

[HolgerX]

.. ein bischen google...

... und schon kommt das:

https://www.experts-exchange.com/que...-Delphi-7.html