Forum: Programmieren allgemein
Delphi
by juergen,
15. Sep 2010
@musicman56,
:mrgreen:, sehr aufmerksam! Das Problem hatte ich schon erkannt und gelöst (dabei hatte mir jemand geholfen).
Meine momentane Lösung sieht nun so aus:
var
...
Age: Integer;
LocalFileTime, FileTime: TFileTime;
hFile: THandle;
...
begin // Setzen des Dateidatum mit dem Aufnahmedatum
Forum: Programmieren allgemein
Delphi
by juergen,
11. Sep 2010
:oops:, das wusste ich überhaut nicht und würde gern ein richtige Fehlerbehandlung einsetzen. Danke für den Hinweis!
Meinst du mit "Fehlercodes" sowas wie GetLastError?
Wie müsste man eine richtige Fehlerbehandlung umsetzen?
Forum: Programmieren allgemein
Delphi
by juergen,
11. Sep 2010
Hallo,
so, nach einigem Testen hab ich es nun auch geschafft.
Ein dickes Dankeschön sende ich an DeddyH' für die beiden entscheidenden Hinweise!:thumb:
Meine Umsetzung:
...
var
Time1: SystemTime;
Time2: TFileTime;
Forum: Programmieren allgemein
Delphi
by juergen,
11. Sep 2010
Hallo zusammen,
ich nutze GetFileDateTime und SetFileDateTime um die 3 Datumseigenschaften von Dateien auszulesen und später wieder rückzuschreiben.
Damit ändern sich letztlich die 3 Datumswerte der Dateien nicht, wenn ich die Dateien in einer anderen Procedure bearbeitet habe.
procedure TTest.GetFileDateTime(const TheFile: string; var fCreationTime, fLastAccessTime, fLastWriteTime: FileTime);...