;Autor: Dobro EnableExplicit Procedure SetResolution(Width, Height, Depth, Frequency, Memoriser) Protected DEVMODE.DEVMODE Protected dmx If EnumDisplaySettings_ (0, -1, @DEVMODE) If Width = DEVMODE\dmPelsWidth And Height = DEVMODE\dmPelsHeight And Depth = DEVMODE\dmBitsPerPel And Frequency=DEVMODE\dmDisplayFrequency ProcedureReturn 2 EndIf DEVMODE.DEVMODE DEVMODE\dmSize = SizeOf(DEVMODE) DEVMODE\dmFields = #DM_PELSWIDTH | #DM_PELSHEIGHT | #DM_BITSPERPEL | #DM_DISPLAYFREQUENCY DEVMODE\dmPelsWidth = Width DEVMODE\dmPelsHeight = Height DEVMODE\dmBitsPerPel = Depth DEVMODE\dmDisplayFrequency = Frequency If Memoriser=1 Memoriser= #CDS_UPDATEREGISTRY | #CDS_NORESET Else Memoriser= #CDS_FULLSCREEN EndIf dmx = ChangeDisplaySettings_(@DEVMODE, Memoriser) ProcedureReturn dmx Else ProcedureReturn 1 EndIf EndProcedure ExamineDesktops() Define OriginalWidth Define OriginalHeight Define OriginalFrequency Define OriginalDepth OriginalWidth = DesktopWidth(0) OriginalHeight = DesktopHeight(0) OriginalDepth = DesktopDepth(0) OriginalFrequency = DesktopFrequency(0) SetResolution(800,600,32,60,2) Delay(3000) SetResolution(OriginalWidth, OriginalHeight, OriginalDepth, OriginalFrequency, 1) ; IDE Options = PureBasic 5.41 LTS (Windows - x64) ; CursorPosition = 47 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0