Prozess auf einen CPU-Sockel festlegen

[Bernhard Geyer]

Ich habe hier das Problem das unter Delphi6 bei verwendung einer 3th-Party-Komponente über JNI der Prozess auf Mehrsockel-Systemen abstürzt.
Wird die Anwendung mit XE6 kompiliert läuft es (kann aber jetzt noch nicht umsteigen, ist erst für nächsten Major-Releaes geplant)

Über SetProcessAffinityMask(GetCurrentProcess(), 1) könnte ich den Prozess auf einen Kern festlegen.
Das könnte aber zu Performanceproblemene führen so das ich ich alle Kerne eines Prozessors freigeben will. Also sowas in der art "SetProcessAffinityMaskForSocket(SocketNr: Integer);
Fertig dürfte es das nicht geben (Wäre natürlich schön falls doch).
Also ist die Frage wie bekommt man die bindung an einen Sockel am einfachsten hin?
Quellcode/Funktionsfragmente werden gerne genommen.