1,486
社区成员
发帖
与我相关
我的任务
分享
Dim x As Long
x = Me.hwnd
Lb = LoadLibrary("user32.dll") '载入模块
ProcAdd = GetProcAddress(Lb, "IsWindow") '取得函数入口(判断是不是窗口)
hThread = CreateThread(ByVal 0&, ByVal 0&, ByVal ProcAdd, ByVal x, ByVal 0&, hThreadID) '创建线程
WaitObj = WaitForSingleObject(hThread, INFINITE) '等待线程结束
Dim Tcm As Long
GetExitCodeThread hThread, Tcm '取线程的反回值
Debug.Print Tcm
FreeLibrary Lb
上面这个代码,只调用有一个参数和一个反回值的API, 如查x是一个有效的窗口句柄,会打印出来1,如果不是有效的窗口句柄会打印出来0,不知道这是不是IsWindow这个函数的返回值。