#include // Header File For Windows #include // Header File For The OpenGL32 Library #include // Header File For The GLu32 Library #include // Header File For The Glaux Library #include HDC hDC=NULL; // Private GDI Device Context HGLRC hRC=NULL
#include // Header File For Windows #include // Header File For The OpenGL32 Library #include // Header File For The GLu32 Library #include // Header File For The Glaux Library #include HDC hDC=NULL; // Private GDI Device Context HGLRC hRC=NULL
function keyHookProc(nCode: Integer;WParam: WPARAM;LParam: LPARAM): LRESULT;stdcall; //调用键盘钩子，屏蔽功能键 var p: PKBDLLHOOKSTRUCT; y: integer; begin if nCode<0 then Result:= CallNextHookEx(hHk,nCode,WParam,LParam) else begin y := 0; case WParam of WM_K
/* * This Code Was Created By Jeff Molofee 2000 * A HUGE Thanks To Fredric Echols For Cleaning Up * And Optimizing The Base Code, Making It More Flexible! * If You've Found This Code Useful, Please Let Me Know. * Visit My Site At nehe.gamedev.net */
VB写的摄像头家庭监控 Public Function msgproc(ByVal hwnd As Long, ByVal msg As Long, ByVal wp As Long, ByVal lp As Long) As Long On Error Resume Next Dim a As along, t As toint a.x = lp: LSet t = a Select Case msg Case msghinstance.WM_MOUSEMOVE, msghinstance.
