🚀 go-pugleaf

For XP but not tested:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
typedef WINBASEAPI
BOOL
WINAPI (*GetSystemTimes)
(LPFILETIME,LPFILETIME,LPFILETIME);

FILETIME IdleTime, KernelTime, UserTime;
LARGE_INTEGER it,kt,ut;

GetSystemTimes GST;
HMODULE Mod=GetModuleHandle("kernel32.dll");
if(Mod == NULL)
        {
         ShowMessage("kernel32.dll is not mapped");
         Application->Terminate();
         return;
        }
GST=(GetSystemTimes)GetProcAddress(Mod,"GetSystemTimes");
if(!GST)
        {
         ShowMessage("GetSystemTimes is absent");
         Application->Terminate();
         return;
        }

BOOL res=GST(&IdleTime, &KernelTime, &UserTime);


if(res)
 {
it.LowPart=IdleTime.dwLowDateTime;
it.HighPart=IdleTime.dwHighDateTime;
Edit1->Text=IntToStr(it.QuadPart);

kt.LowPart=KernelTime.dwLowDateTime;
kt.HighPart=KernelTime.dwHighDateTime;
Edit2->Text=IntToStr(kt.QuadPart);

ut.LowPart=UserTime.dwLowDateTime;
ut.HighPart=UserTime.dwHighDateTime;
Edit3->Text=IntToStr(ut.QuadPart);

 }

}


For Win2000 and XP but internal Windows function:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
typedef struct
_SYSTEM_PROCESSOR_PERFORMANCE_INFORMATION {
    LARGE_INTEGER IdleTime;
    LARGE_INTEGER KernelTime;
    LARGE_INTEGER UserTime;
    LARGE_INTEGER Reserved1[2];
    ULONG Reserved2;
} SYSTEM_PROCESSOR_PERFORMANCE;
DWORD dl;

SYSTEM_PROCESSOR_PERFORMANCE spr;

typedef WINBASEAPI
DWORD
WINAPI (*NtQuerySystemInformation)(int, PVOID, ULONG, PULONG);

NtQuerySystemInformation NtQuerySystemInformationFunc;

HMODULE Mod=GetModuleHandle("ntdll.dll");
if(Mod == NULL)
        {
         ShowMessage("ntdll.dll is not mapped");
         Application->Terminate();
         return;
        }
NtQuerySystemInformationFunc=(NtQuerySystemInformation)GetProcAddress(Mod,"NtQuerySystemInformation");
BOOL res=NtQuerySystemInformationFunc(8, &spr, sizeof(SYSTEM_PROCESSOR_PERFORMANCE),&dl);
Edit7->Text=IntToStr(spr.IdleTime.QuadPart);
Edit8->Text=IntToStr(spr.KernelTime.QuadPart);
Edit9->Text=IntToStr(spr.UserTime.QuadPart);
}


Vladimir.