Erstellungs-/Änderungs- und letzte Zugriffszeit
Hallo,
über findfirst und findnext kann in von einem Objekt TSearchRec neben z.B. Dateiname, Größe, Attribute und DOS-Zeit auch die Erstellungszeit, Zeit der letzten Änderung und des letzten Zugriffs abgefragt werden. Diese befinden sich jeweils in 2 Record-Feldern vom Typ Cardinal. Feldabfrage z.B.: a:=search.FindData.ftCreationTime.dwLowDateTime; b:=search.FindData.ftCreationTime.dwHighDateTime; Jetzt die Frage: Wie kann ich diese Zahlen in einen Datums-Zeit-Wert umwandeln? Nach bisherigen Versuchen passen die für die DOS-Zeit möglichen Funktionen nicht. Gruß macdede |
Re: Erstellungs-/Änderungs- und letzte Zugriffszeit
Delphi-Quellcode:
function ConvertFileTime(ft:TFileTime):TDateTime;
var st : TSystemTime; begin if Windows.FileTimeToSystemTime(ft, st) then Result := SysUtils.SystemTimeToDateTime(st) else Result := 0.0; end; var erzeugt : TDatetime; begin erzeugt := ConvertFileTime(search.FindData.ftCreationTime); |
Re: Erstellungs-/Änderungs- und letzte Zugriffszeit
Danke shmia,
hat gut funktioniert.:-D |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:50 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz