Ein Thread einen bestimmten Prozessorkern zuordnen

**Phantom1**

Mit diesem Code kann man ein Thread einen bestimmten CPU Core zuweisen.

Delphi-Quellcode:

			const

  THREAD_TERMINATE                 = $0001;

  THREAD_SUSPEND_RESUME            = $0002;

  THREAD_GET_CONTEXT               = $0008;

  THREAD_SET_CONTEXT               = $0010;

  THREAD_SET_INFORMATION           = $0020;

  THREAD_QUERY_INFORMATION         = $0040;

  THREAD_SET_THREAD_TOKEN          = $0080;

  THREAD_IMPERSONATE               = $0100;

  THREAD_DIRECT_IMPERSONATION      = $0200;

  THREAD_SET_LIMITED_INFORMATION   = $0400;

  THREAD_QUERY_LIMITED_INFORMATION = $0800;

  THREAD_ALL_ACCESS                = STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $03FF;

function OpenThread(dwDesiredAccess: DWord;

                    bInheritHandle: Bool;

                    dwThreadId: DWord): DWord; stdcall; external 'kernel32.dll';

function SetThreadAffinityMaskByID(ID, AffinityMask: Cardinal): Boolean;

var

  Handle: THandle;

begin

  Result:=False;

  Handle:=OpenThread(THREAD_SET_INFORMATION or THREAD_QUERY_INFORMATION, False, ID);

  if Handle<>0 then begin

     Result:=SetThreadAffinityMask(Handle, AffinityMask)<>0;

     CloseHandle(Handle);

  end;

end;

So könnte ein Aufruf aussehen:

markieren

Delphi-Quellcode:

			SetThreadAffinityMaskByID(GetCurrentThreadID, 1); // HauptThread auf prozessor core1 setzen

SetThreadAffinityMaskByID(WorkThread.ThreadID, 2); // WorkThread auf prozessor core2 setzen

Ein Thread einen bestimmten Prozessorkern zuordnen

Ein Thread einen bestimmten Prozessorkern zuordnen

Forumregeln