Zeitzuweisung für Dateien (erstellt, geändert....)

[MrKnogge]

Servus !

Ich würdemir gern ein kleines tool schreiben,
um die Zeiten einer Datei auszulesen, und zu verändern.

Also ich mein die Daten
Erstellt:
Verändert:
Letzter Zugriff:

Ich denke, das dies mit TimeStamp geht, aber
wie weis ich ned und die Suche konnte mir
leider auch nicht weiter helfen.

[Christian Seehase]

Moin MrKnogge,

such' hier mal nach GetFileTime bzw. SetFileTime

Ich verschieb's dann auch mal nach Windows API.

[Alexander]

Kuck mal hier:
http://www.delphipraxis.net/internal...326&highlight=

[MrKnogge]

Ich habs nun so gelöst:

Delphi-Quellcode:

function LeseZeiten(Datei : string): TTs;
var
  FileT1                           : TFileTime;    // Erstellt
  FileT2                           : TFileTime;    // bearbeitet
  FileT3                           : TFileTime;    // letzter zugriff
  aHandle                          : THandle;
begin
  aHandle := CreateFile(PChar(Datei), GENERIC_WRITE, 0,
    nil, OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0);
  GetFileTime(aHandle, @FileT1, @FileT2, @FileT3);
  FileTimeToSystemTime(FileT1, result.erstellt);
  FileTimeToSystemTime(FileT3, result.geaendert);
  FileTimeToSystemTime(FileT2, result.letzterzugriff);
  CloseHandle(aHandle);
end;

Jetzt habe ich allerdings das Problem, dass die angezeigte Zeit
eine Stunde früher ist, als die die Windows anzeigt.

Hat das mit meiner Zeitzone zu tun ?

gruss

[Chewie]

Zitat von MrKnogge:

Hat das mit meiner Zeitzone zu tun ?

Ja, versuch FileTimeToLocalFileTime und anschließend FileTimeToSytemTime.