OpenFile

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

[Willie1]

Hallo, ihr habt recht, ich bin altmodisch. TFile.SetCreationTime kannte ich in der Tat nicht. Da muss ich noch viel lernen. Ich denke zu oft an mein altes Delphi 6.

Aber immerhin habe ich mein Problem gelöst:HFileResult := CreateFile(PChar(Filename), FILE_WRITE_ATTRIBUTES , 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Es steht alles in der Windows-Doku, muss man sich aber zusammen suchen.
Eure Hinweise werde ich mir zu Herzen nehmen. Mein Programm ist nicht 15 Jahre alt, nur diese Funktion aus einer Bibliothek!
Gruß Willie.