Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#1

TFileTime addieren

  Alt 6. Aug 2007, 10:15
Wie addiere ich zwei TFileTime-Werte?
Delphi-Quellcode:
CPUTime.dwLowDateTime := ProcList.Items[i].KernelTime.dwLowDateTime + ProcList.Items[i].UserTime.dwLowDateTime;
CPUTime.dwHighDateTime := ProcList.Items[i].KernelTime.dwHighDateTime + ProcList.Items[i].UserTime.dwHighDateTime;
Das stimmt irgendwie nicht. Denn wenn ich das in eine Zeit umwandele,
Delphi-Quellcode:
FileTimeToLocalFileTime(CPUTime, lft);
FileTimeToSystemTime(lft, st);
GetTimeFormatW(LOCALE_SYSTEM_DEFAULT, TIME_FORCE24HOURFORMAT, @st, nil, TimeStr, SizeOf(TimeStr));
kommt ein falscher Wert dabei raus.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat