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).