Erstellt (am) einer Datei ändern

[---Bernhard---]

Schau dir doch die Deklaration der Funktion an:

Code:

function ChangeFileDate(const path: string; const Creation, LastAccess, 
  LastWrite: TDateTime): Boolean;

Also z.B. so:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var erstellung, zugriff, schreibzugriff: TDateTime;
begin
  erstellung := StrToDateTime('01.01.2004 12:00');
  zugriff := StrToDateTime('01.01.2004 12:00');
  schreibzugriff := StrToDateTime('01.01.2004 12:00');
  ChangeFileDate('c:\temp\test.bmp', erstellung, zugriff, schreibzugriff);
end;

Bernhard