möchte einheitliches Datums für Exec-Files

[TStringlist]

Thx beiden. Touch war echt brauchbar.

Im folgenden Code habe ich nundann versucht, einen solchen Zeiteintrag vorerst mal bei einem einzelnen bestimmten File auszutesten.

Code:

procedure TForm1.Button1Click(Sender: TObject);
const FName = 'C:\Programme\Borland\Delphi7\Projects\Test.exe';
var ADateTime : TDateTime;
    AFileDate : integer;
    FileHandle : integer;
    FileSetDate_Result : integer;
begin
  ADateTime := StrToDateTime ('01.01.1900 20:00:00');
  AFileDate := DateTimeToFileDate(ADateTime);

  FileHandle := FileOpen (FName, fmOpenReadWrite or fmShareDenyNone);
  try
    FileSetDate_Result := FileSetDate (FileHandle, AFileDate);
  finally
    FileClose(FileHandle);
  end; 

  showMessage('FileHandle: ' + IntToStr (FileHandle) + #13#10 +
              'FileSetDate-Result: ' +  IntToStr (FileSetDate_Result) +
              ' = ' + SysErrorMessage (FileSetDate_Result) );
end;

Leider allerdings, bekomme ich da als Antwort-Code der FileSetDate-Funktion immer wieder nur eine 87 = "Falscher Parameter" angezeigt. Als FileHandle krieg ich meistens den Wert 912, der damit wohl in Ordnung sein dürfte. Aber als Ergebnis dieser FileSetDate-Funktion immer nur die 87 = Falscher Parameter Hat da vielleicht nochmal jemand eine Idee, was hier los sein könnte? (Selbst wenn das Ganze hier jetzt auch nichts mehr mit API zu tun haben sollte).