[KurtRu]

Как считать загрузаки ЦП из диспечера задач и вывести его как заставку на рабочий стол

[lmikle]

Ищи по Performance Counter и PDH. я использовал библиотеку pdh.dll и соответствующий порт заголовков с Jedi. Все работало, хотя сейчас надо бы переписать, т.к. многоядерность, однако.

[Rokuell]

Есть такой вариант:

[0nni]

От себя отрываю =)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151

unit qraTaskCpu;   interface   uses windows;   function GetCPUUsage : byte;   implementation   const   SystemBasicInformation = 0;   SystemPerformanceInformation = 2;   SystemTimeInformation = 3;   type   TPDWord = ^DWORD;     TSystem_Basic_Information = packed record     dwUnknown1: DWORD;     uKeMaximumIncrement: ULONG;     uPageSize: ULONG;     uMmNumberOfPhysicalPages: ULONG;     uMmLowestPhysicalPage: ULONG;     uMmHighestPhysicalPage: ULONG;     uAllocationGranularity: ULONG;     pLowestUserAddress: Pointer;     pMmHighestUserAddress: Pointer;     uKeActiveProcessors: ULONG;     bKeNumberProcessors: byte;     bUnknown2: byte;     wUnknown3: word;   end;   type   TSystem_Performance_Information = packed record     liIdleTime: LARGE_INTEGER; {LARGE_INTEGER}     dwSpare: array[0..75] of DWORD;   end;   type   TSystem_Time_Information = packed record     liKeBootTime: LARGE_INTEGER;     liKeSystemTime: LARGE_INTEGER;     liExpTimeZoneBias: LARGE_INTEGER;     uCurrentTimeZoneId: ULONG;     dwReserved: DWORD;   end;   var   NtQuerySystemInformation: function(infoClass: DWORD;     buffer: Pointer;     bufSize: DWORD;     returnSize: TPDword): DWORD; stdcall = nil;     liOldIdleTime: LARGE_INTEGER = ();   liOldSystemTime: LARGE_INTEGER = ();   function Li2Double(x: LARGE_INTEGER): Double; begin   Result := x.HighPart * 4.294967296E9 + x.LowPart end;   function GetCPUUsage : byte; var   SysBaseInfo: TSystem_Basic_Information;   SysPerfInfo: TSystem_Performance_Information;   SysTimeInfo: TSystem_Time_Information;   status: Longint; {long}   dbSystemTime: Double;   dbIdleTime: Double; begin   {todo : в модуле отсутствовала проверка даления на "0",     для вещественных чисел это оборочивальсь простым выходом из процедр     без каких либо ошибок}   if @NtQuerySystemInformation = nil then     NtQuerySystemInformation := GetProcAddress(GetModuleHandle('ntdll.dll'),       'NtQuerySystemInformation');     // get number of processors in the system     status := NtQuerySystemInformation(SystemBasicInformation, @SysBaseInfo,     SizeOf(SysBaseInfo), nil);   if status <> 0 then     Exit;     // Show some information   {with SysBaseInfo do   begin     ShowMessage(       Format('uKeMaximumIncrement: %d'#13'uPageSize: %d'#13   +       'uMmNumberOfPhysicalPages: %d' + #13 + 'uMmLowestPhysicalPage: %d' + #13 +       'uMmHighestPhysicalPage: %d' + #13 + 'uAllocationGranularity: %d'#13 +       'uKeActiveProcessors: %d'#13'bKeNumberProcessors: %d'  ,       [uKeMaximumIncrement, uPageSize, uMmNumberOfPhysicalPages,       uMmLowestPhysicalPage, uMmHighestPhysicalPage, uAllocationGranularity,         uKeActiveProcessors, bKeNumberProcessors]));   end;   }         // get new system time     status := NtQuerySystemInformation(SystemTimeInformation, @SysTimeInfo,       SizeOf(SysTimeInfo), 0);     if status <> 0 then       Exit;             // get new CPU's idle time     status := NtQuerySystemInformation(SystemPerformanceInformation,       @SysPerfInfo, SizeOf(SysPerfInfo), nil);     if status <> 0 then       Exit;       // if it's a first call - skip it     if (liOldIdleTime.QuadPart <> 0) then     begin         // CurrentValue = NewValue - OldValue       dbIdleTime := Li2Double(SysPerfInfo.liIdleTime) -         Li2Double(liOldIdleTime);       dbSystemTime := Li2Double(SysTimeInfo.liKeSystemTime) -         Li2Double(liOldSystemTime);         // CurrentCpuIdle = IdleTime / SystemTime       if dbSystemTime <> 0 then       dbIdleTime := dbIdleTime / dbSystemTime else dbIdleTime := 0;           // CurrentCpuUsage% = 100 - (CurrentCpuIdle * 100) / NumberOfProcessors       if SysBaseInfo.bKeNumberProcessors <> 0 then       dbIdleTime := 100.0 - dbIdleTime * 100.0 / SysBaseInfo.bKeNumberProcessors         + 0.5         else          dbIdleTime := 0;       if dbIdleTime > 100 then dbIdleTime := 0;       // Show Percentage       result := Trunc(dbIdleTime);           // Abort if user pressed ESC or Application is terminated       end;       // store new CPU's idle and system time     liOldIdleTime := SysPerfInfo.liIdleTime;     liOldSystemTime := SysTimeInfo.liKeSystemTime;       // wait one second end;   end.