|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Private Declare Function SetProcessAffinityMask Lib "kernel32.dll" (ByVal hProcess As Integer, ByVal dwProcessAffinityMask As Long) As Boolean
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
参数说明:Hwnd 窗口句柄 ,CpuSer 设置当前窗口在那个CPU上运行【CPU(0) 参数为 1,CPU(1) 参数为 2..其余自己琢磨】
Private Function SetCpu(ByVal Hwnd As Long, ByVal CpuSer As Long)
Dim pid, hProcess As Long
Process_All_Access = &H1F0FFF
Call GetWindowThreadProcessId(Hwnd, pid)
hProcess = OpenProcess(Process_All_Access, False, pid)
SetProcessAffinityMask hProcess, CpuSer
End Function
|
|