Folgender Code müsste das gewünschte Leisten:
Delphi-Quellcode:
procedure SetProcessAffinityMaskToOneSocket;
var
NewMask: Int64;
begin
GetNumaNodeProcessorMask(0, @NewMask);
SetProcessAffinityMask(GetCurrentProcess(), NewMask);
end;
Leider kracht es immer noch.
Dann bleibt doch das während der Problematischen Funktionen ein
SetProcessAffinityMask(GetCurrentProcess(), 1);
bis wir dann auf XE6 sind