OpenFile

[himitsu]

Vermutlich ja.

Kommt drauf an was du willst.
https://stackoverflow.com/questions/...of-windows-api

Wobei ich nicht weiß warum du bei einer nichtexistierenden Datei das Datum ändern willst. (inkl. dem Erstellen dieser Datei)

[Willie1]

Zitat von himitsu:

Vermutlich ja.

Kommt drauf an was du willst.
https://stackoverflow.com/questions/...of-windows-api

Wobei ich nicht weiß warum du bei einer nichtexistierenden Datei das Datum ändern willst. (inkl. dem Erstellen dieser Datei)

Ich habe es in OPEN_EXISTING geändert.
Natürlich will ich nur das Datum einer existierenden Datei ändern. Wie beschrieben, geht es nicht. Ich habe mich versehen, es passiert nichts. W.

[Schwedenbitter]

Mit SysUtils kann man doch folgendes basteln:

Delphi-Quellcode:

FileHandle:=FileOpen(aPath + SR.Name, fmOpenReadWrite Or fmShareExclusive);
Try
   If SetFileTime(FileHandle, @FileTime, @FileTime, @FileTime) Then
      Memo1.Lines.Append(SR.Name + ' -> success')
   Else
      Memo1.Lines.Append(SR.Name + ' -> ' + SysErrorMessage(GetLastError));
Finally
   FileClose(FileHandle);
End;

Ließ sich gerade compilieren und funktioniert.

[Willie1]

Muss ich mir ansehen, aber morgen!!! Willie.

[Benmik]

Und warum nicht einfach TFile.SetCreationTime ?

[Schwedenbitter]

Zitat von Benmik:

Und warum nicht einfach TFile.SetCreationTime ?

Spricht überhaupt nichts dagegen. Hatte bloß noch keiner in der Form geschrieben.
Letztlich nutzt das CreateFile . Und dass wiederum wurde schon von himitsu in's Spiel gebracht.

[edit] Einer der Vorschläge sollte zur Zufriedenheit funktionieren.[/edit]

[Benmik]

Es ist aber doch offensichtlich, dass Willie hier an einer API-Funktion herumdoktert, die er überhaupt nicht mehr braucht.

Willie aktualisiert ja sein 15 Jahre altes Programm. Mein Rat wäre, nicht einfach an dem 15 Jahre alten Code zu kleben und ihn dort anzupassen, wo er nicht mehr läuft. Viele Fortschritte von Delphi in dieser Zeit bestehen nicht in tollen neuen Sprachfeatures, sondern darin, dass dem Anwender das Leben leichter gemacht wird. Siehe TFile, TPath, TDirectory. Oder auch die zahlreichen Varianten von Streams, die es mittlerweile gibt. Wer verwendet noch File, Reset und Blockread? Willie sollte mal nachschauen, ob es für die 15 Jahre alten Lösungen nicht Einzeiler gibt, die alles kapseln. Man kann ja auch fallweise hier danach fragen. Es müssen ja nicht gleich anonyme Methoden oder Interfaces sein, aber z.B. Generics hat der Code wahrscheinlich nicht.