GetObjectAPI

[CVMichael]

Dim dBitmap As Long, dBMP As BITMAP, HDC As Long, ret As Long
    
    HDC = GetForegroundWindow
    dBitmap = GetCurrentObject(HDC, OBJ_BITMAP)
    
    If dBitmap <> 0 Then
        ret = GetObjectAPI(dBitmap, Len(dBMP), dBMP)
        Debug.Print ret, dBMP.bmHeight, dBMP.bmWidth
 
' .... the rest of the ode...

The GetObjectAPI ALWAYS returns 0, and dBMP variables are 0 also, how come ?

[jim mcnamara]

You get a hwnd from GetForegroundWindow...

    Dim dBitmap As Long, dBMP As BITMAP, HDC As Long, ret As Long
    
    HDC = GetForegroundWindow
    HDC=GetDC(HDC) 
    dBitmap = GetCurrentObject(HDC, OBJ_BITMAP)
    
    If dBitmap <> 0 Then
        ret = GetObjectAPI(dBitmap, Len(dBMP), dBMP)
        Debug.Print ret, dBMP.bmHeight, dBMP.bmWidth

[CVMichael]

I just forgot to copy that line, when I copyed and pasted the code in this thread.

So, my question is the same: how come it's always 0 ?

[CVMichael]

Actually, in this thread wich I posted in the general forum is more detailed

http://vbforums.com/showthread.php?s=&threadid=228589