Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Re: TFileTime addieren
6. Aug 2007, 12:51
Also so:
Delphi-Quellcode:
KernelTime64.LowPart := ProcList.Items[i].KernelTime.dwLowDateTime;
KernelTime64.HighPart := ProcList.Items[i].KernelTime.dwHighDateTime;
UserTime64.LowPart := ProcList.Items[i].KernelTime.dwLowDateTime;
UserTime64.HighPart := ProcList.Items[i].KernelTime.dwHighDateTime;
CPUTime64.QuadPart := KernelTime64.QuadPart + UserTime64.QuadPart;
CPUTimeft.dwLowDateTime := CPUTime64.LowPart;
CPUTimeft.dwHighDateTime := CPUTime64.HighPart;
FileTimeToSystemTime(CPUTimeft, st);
GetTimeFormatW(LOCALE_SYSTEM_DEFAULT, TIME_FORCE24HOURFORMAT, @st, nil, TimeStr, SizeOf(TimeStr));
Michael Ein Teil meines Codes würde euch verunsichern.
|
|
Zitat
|