Code: Select all
Dim As RECT tDesktop
Dim As hwnd hHWND_Dt
hHWND_Dt = FindWindow("Progman","Program Manager")
Dim as integer x, y, w, h
x = tDesktop.left
y = tDesktop.top
w = tDesktop.right + Abs(x)
h = tDesktop.bottom + Abs(y)
? x, y
? w, h
ScreenRes(w, h, 32, 1, GFX_FULLSCREEN)
ScreenControl(SET_WINDOW_POS, tDesktop.left, tDesktop.top)
I have 3 monitors like this here (monitor 3 is the primary):
Monitor 2 and 3 have a resolution of 1680x1050 pixels and monitor 3 @1600x900 -> 4960x1050 pixels.
I expect the result of the code above to have a black screen over all monitor but it's not working. The result is rather like this here:
Output from code:
Further, it takes a very long time until the GUI is shown.
Any idea how to fix it?