PureBasic Forums - English

Code: Select all

#MONITORINFOF_PRIMARY=1
#MONITOR_DEFAULTTONULL=0
#MONITOR_DEFAULTTOPRIMARY=1
#MONITOR_DEFAULTTONEAREST=2

Structure MONITORINFOEX
	cbSize.l
	rcMonitor.RECT
	rcWork.RECT
	dwFlags.l
	szDevice.s{#CCHDEVICENAME}
EndStructure

Procedure.s GetDesktopFromWindow(window.i)
	Protected result$="",hwnd.i,hmon.i,mi.MONITORINFOEX,n.i,i.i
	If IsWindow(window)
		hwnd=WindowID(window)
		mi\cbSize=SizeOf(mi)
		hmon=MonitorFromWindow_(hwnd,#MONITOR_DEFAULTTONEAREST)
		If hmon
			If GetMonitorInfo_(hmon,mi)
				result$=mi\szDevice
			EndIf
		EndIf
	EndIf
	ProcedureReturn result$ ;If "" there was an error or monitor not found.
EndProcedure

Procedure.i SetWindowFromDesktopName(desktop$,window.i)
	Protected result.i=#False,hwnd.i,hmon.i,mi.MONITORINFOEX,n.i,i.i,pt.POINT
	If IsWindow(window) And desktop$<>""
		hwnd=WindowID(window)
		mi\cbSize=SizeOf(mi)
		n=ExamineDesktops()-1
		For i=0 To n
			If DesktopName(i)=desktop$
				pt\x=DesktopX(i)
				pt\y=DesktopY(i)
				hmon=MonitorFromPoint_(pt\x,pt\y,#MONITOR_DEFAULTTONEAREST)
				If hmon
					If GetMonitorInfo_(hmon,mi)
						MoveWindow_(hwnd,mi\rcWork\left,mi\rcWork\top,mi\rcWork\right-mi\rcWork\left,mi\rcWork\bottom-mi\rcWork\top,1)
						result=#True
						Break
					EndIf
				EndIf
			EndIf
		Next
	EndIf
	ProcedureReturn result ;If #false, there was an error or monitor not found.
EndProcedure

If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget)

	SetWindowFromDesktopName("\\.\DISPLAY2",0)

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
  Debug(GetDesktopFromWindow(0))
  
EndIf

End   ; All the opened windows