Как на PureBasic или на Delphi 7 получить уровень нагрузки ЦП, видеопамяти, ОЗУ?

GetSystemTimes Function

Retrieves system timing information. On a multiprocessor system, the values returned are the sum of the designated times across all processors.

BOOL WINAPI GetSystemTimes(
__out LPFILETIME lpIdleTime,
__out LPFILETIME lpKernelTime,
__out LPFILETIME lpUserTime
);

Parameters
lpIdleTime
A pointer to a FILETIME structure that receives the amount of time that the system has been idle.

lpKernelTime
A pointer to a FILETIME structure that receives the amount of time that the system has spent executing in Kernel mode (including all threads in all processes, on all processors).

lpUserTime
A pointer to a FILETIME structure that receives the amount of time that the system has spent executing in User mode (including all threads in all processes, on all processors).

Return Value
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

-------------------------------------------------
Library
Use Kernel32.lib.

DLL
Requires Kernel32.dll.

-------------------------------------------------
enjoy ^_^