Comments on: How To Get Per-Core CPU Usage

By: Rob

Rob — Tue, 02 Mar 2010 20:13:32 +0000

Hi White Shadow,

You are amazing, i was struggling for 4 hrs now. Now i see new code and it has a whole new tweaks. It will really help me to learn delphi much better.

Thanks again.

All this effort is to get my site up with some widget marketing. I will donate $12 for now, but will PROMISE to donate atleast $100 after i get this months payment. You really saved 4 days of work, and i should really pay you back!

Rob

By: White Shadow

White Shadow — Tue, 02 Mar 2010 20:07:01 +0000

Here's a Delphi 7 version of the app. It compiles & works fine on my D7 / WinXP machine. Note: You will need the Jedi API library. The TGauge component is defined in the Gauges.pas file located in the /Source/Samples/ subdirectory of your D7 install.

By: rob

rob — Tue, 02 Mar 2010 16:03:30 +0000

ok, i made the tweaks to run this on delphi 7 and it works to an extent. It only fetches total cpu usage. Then i used breakpoints to study where the problem was. Apparently it has to be in the InstanceId value. It did not show me ‘_total’ it showed me ‘0′. So i made the if command to check is InstanceId = ‘0′. Now it throws the “Initialization was unsuccessful” Error, the same one Welton got. But im on Xp. So that was not a vista thing. If the InstanceID = ‘_total’ remains, then only total cpu shows, because it skips the individual thing altogether I am digging this further, i got to get it done finally, for my free widget that im doing for 5 days now. And oh yeah, i only started learning delphi since 5 days, so i got delphi 7 SE :S i should paid for 2009 instead LOL Anything thanks for the code, the debugger shows me that it scrapped the thread correctly, now i need to write my own munging code :S

Rob, Esh and Sam at optimize-your-pc.org

By: rob

rob — Tue, 02 Mar 2010 14:05:57 +0000

Btw, im doing a widget for the site that is listed. Thanks a lot!

By: rob

rob — Tue, 02 Mar 2010 14:04:51 +0000

Hi White Shadow,

Thanks for this program, how i can i tweak it to run in delphi 7. I get the incompatibility errors i manage to do it all, but 2. string to char Can you release a delphi 7 version with progress bar that are on the form, instead of creating it at the runtime. Say you put 4 progress bars, if the cpu is quadcore, you get all 4 bars working. if the processor is tricore, then 3 bars get their width adjusted and 4th is removed. Same for dual core. If you can please do that above in delphi 7. I can donate some $ to your blog. Thanks

Rob

By: welton

welton — Thu, 10 Dec 2009 21:39:17 +0000

OK, thanks. It is the english version of Vista. I’ll have to keep hunting for the performance counter paths. You’d think they’d be listed on MSDN or something, but I can’t seem to find a list anywhere.

Welton

By: White Shadow

White Shadow — Thu, 10 Dec 2009 19:33:26 +0000

Are you using a localized version of Windows? The performance counters can have different names on non-english systems, which would cause the program to fail in this manner.

If that’s not it, it’s probably some Vista thing instead. And I can’t help with that as I don’t have Vista.

By: welton

welton — Thu, 10 Dec 2009 17:10:46 +0000

I am using Delphi 7 on Windows Vista. I have made minor tweaks to your code to get it to compile under Delphi 7, but the program fails to initialize. It fails the status = PDH_MORE_DATA check. I have also downloaded the compiled example application, but I still get the same ‘Initialization was unsuccessful’ error from your compiled version.

Any ideas?

Thanks,
Welton

By: Cleber

Cleber — Tue, 10 Nov 2009 06:09:17 +0000

Duriel, run perfmon.exe to discover the translation used by MS

By: Michael

Michael — Mon, 10 Aug 2009 21:15:41 +0000

Okay Thank you very much for your time and help

Michael