#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
var intPos,intX,intY: longint; begin intPos := message.lParam; intX := Trunc(intPos/10000); intY := (intPos mod 10000); if not CutRange.MouseIsDown then begin if not ((intX>Left) and (intXTop) and (intY<Top+Height)) then begin MoveWindow(CutRa
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.