function GetProcessID(Exename:
string): DWORD;
var
hProcSnap: THandle;
pe32: TProcessEntry32;
begin
result := 0;
hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
if hProcSnap <> INVALID_HANDLE_VALUE
then
begin
pe32.dwSize := SizeOf(ProcessEntry32);
if Process32First(hProcSnap, pe32) = true
then
begin
while Process32Next(hProcSnap, pe32) = true
do
begin
if pos(Exename, pe32.szExeFile) <> 0
then
result := pe32.th32ProcessID;
end;
end;
CloseHandle(hProcSnap);
end;
end;
function GetProcessHandleFromID(ID: DWORD): THandle;
begin
result := OpenProcess(PROCESS_SET_INFORMATION, False, ID);
end;
function SetProcessAffinityMaskByID(ID,Affinity: DWORD): Boolean;
var
handle: thandle;
begin
handle := OpenProcess(PROCESS_SET_INFORMATION, False, ID);
result:=(
handle <> 0)
and SetProcessAffinityMask(
handle, Affinity);
if (
handle <> 0)
then closehandle(
handle);
end;
procedure TForm1.Button1click(Sender: TObject);
begin
SetProcessAffinityMaskByID(GetProcessID('
SOUNDMAN.EXE'), 1);
// 1=CPU0 , 2=CPU1
end;