Externe Exe starten und dieser einen best. Kern zuweisen

[gitz]

Der Code hat einen kleinen fehler:

hier:
if iKernelNumb > lpSystemInfo.dwNumberOfProcessors

richtig:
if iKernelNumb > power(2,lpSystemInfo.dwNumberOfProcessors-1)

an anderer Stelle nochmals dasselbe.
ansonsten sehr nützlicher Code!

[Namenloser]

if iKernelNumb > power(2,lpSystemInfo.dwNumberOfProcessors-1)
kann man auch einfacher schreiben:
if iKernelNumb > 1 shl (lpSystemInfo.dwNumberOfProcessors-1)

[Assarbad]

Zitat von NamenLozer:

kann man auch einfacher schreiben:
if iKernelNumb > 1 shl (lpSystemInfo.dwNumberOfProcessors-1)

Einfacher ja, schneller vermutlich auch ... aber dann darf ein Kommentar nicht fehlen für all jene die sich nicht damit auskennen. Plus der Hinweis, daß es ab einer gewissen Anzahl Kerne nur noch 0 ergibt

[himitsu]

Dieses IF ist schon richtig so.
> Wenn der Kernel-Index größer als die Anzahl ist, dann auf den letzten Kern setzen.

Aber die nachfolgende Umrechnung von "Index" auf "Maske" fehlte.

Delphi-Quellcode:

if iKernelNumb > lpSystemInfo.dwNumberOfProcessors then
  iKernelNumb := lpSystemInfo.dwNumberOfProcessors;
if SetProcessAffinityMask(hProc, $1 shl (iKernelNumb - 1)) then

Wobei ich es etwas unpraktisch finde, daß man hier einen 1-basierenden Index verwendet.