[pascal]SetThreadAffinityMask(GetCurrentThread(), 1);[/pascal]