VB6源码 怎么转换到TC上？设置指定窗口到指定核心CPU上运行

chen1882729

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

2576605471

直接转换tc代码即可,代码不多,简单