Borland Delphi, total number of cpu core

by wu » Thu, 08 Jan 2009 20:24:27 GMT

Hi

How can I know total number of cpu core in delphi ?

Thanks
Sum

by **sum** » Thu, 08 Jan 2009 20:26:49 GMT

Hi

How can I know total number of cpu core in delphi ?

Thanks
Sum

by **Skybuck Flying** » Fri, 09 Jan 2009 05:57:25 GMT

See intel or amd documentation about that.

It's seems rather nasty... or try google... examples are out there !

Search search !

Fetch ! :)

Bye,
Skybuck ;)

by **sum** » Sat, 10 Jan 2009 09:59:47 GMT

Today I lucky find
http://www.nabble.com/number-of-cpu-cores-td20747886.html

function AvailableProcessorCount: DWORD;
//returns total number of processors available to system including
//logical hyperthreaded processors
var
i: Integer;
ProcessAffinityMask, SystemAffinityMask: DWORD;
Mask: DWORD;
begin
if GetProcessAffinityMask(GetCurrentProcess, ProcessAffinityMask,
SystemAffinityMask) then begin
Result := 0;
for i := 0 to 31 do begin
Mask := 1 shl i;
if (ProcessAffinityMask and Mask)<>0 then begin
inc(Result);
end;
end;
end else begin
//can't get the affinity mask so we just report the total number of
//processors
Result := OperatingSystemInfo.ProcessorCount;
end;
end; (* AvailableProcessorCount *)

But delphi said "Undeclared identifier: 'OperatingSystemInfo'

How to solve ?

Thanks
Sum

"Skybuck Flying" < XXXX@XXXXX.COM >

by **Skybuck Flying** » Sat, 10 Jan 2009 10:19:15 GMT

Maybe this is good enough for you for now:

// *** Begin of Program ***

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows;

var
vSystemInfo : _SYSTEM_INFO;

begin
try
GetSystemInfo( vSystemInfo );

writeln( vSystemInfo.dwNumberOfProcessors );

{ TODO -oUser -cConsole Main : Insert code here }
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
readln;
end.

// *** End of Program ***

If you need to know more you might wanna look into cpuid.

And intel has some crazy complex documents if you wanna go crazy: :)

http://software.intel.com/en-us/articles/intel-64-architecture-processor-topology-enumeration/

Good luck ! ;)

Bye,
Skybuck.

by **sum** » Sat, 10 Jan 2009 10:57:37 GMT

Very thanks

Sum
"Skybuck Flying" < XXXX@XXXXX.COM > wrote
8241$496805a0$d5337e4d$ XXXX@XXXXX.COM ...

Borland Delphi, total number of cpu core

Borland Delphi >> total number of cpu core

Borland Delphi >> total number of cpu core

Borland Delphi >> total number of cpu core

total number of cpu core

total number of cpu core

total number of cpu core