Code: Select all
Global hBmp, PDC
Procedure HBitmapFromScreen(X, Y, W, H)
If hBmp
SelectObject_(PDC, hBmp)
DeleteObject_(hBmp)
DeleteDC_(PDC)
EndIf
If Not HDC
HDC = GetDC_(0)
EndIf
hBmp = CreateCompatibleBitmap_(HDC, W, H)
PDC = CreateCompatibleDC_(HDC)
SelectObject_(PDC, hBmp)
BitBlt_(PDC, 0, 0, W, H, HDC, X, Y, #SRCCOPY)
EndProcedure