TC官方合作论坛

标题: VB6源码怎么转换到TC上？设置指定窗口到指定核心CPU上运行 [打印本页]

作者: chen1882729 时间: 2016-11-25 15:46
标题: VB6源码怎么转换到TC上？设置指定窗口到指定核心CPU上运行
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 时间: 2016-11-27 01:25
直接转换tc代码即可,代码不多,简单

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)