; Change la résolution d'écran du bureau de Windows. Possibilité de récupérer la dimension actuelle du bureau.

Procedure ChangeDisplaySettings(Width.w, Height.w, Depth.w)
     dmScreenSettings.DEVMODE
     dmScreenSettings\dmSize = SizeOf(DEVMODE)
     dmScreenSettings\dmPelsWidth = Width
     dmScreenSettings\dmPelsHeight = Height
     dmScreenSettings\dmBitsPerPel = Depth
     dmScreenSettings\dmFields = 262144 | 524288 | 1048576
     If ChangeDisplaySettings_(@dmScreenSettings, 1)
          Result = 1
     Else
          Result = 0
     EndIf
     ProcedureReturn Result
EndProcedure
ChangeDisplaySettings(1024, 768, 32)
; ChangeDisplaySettings(1280, 1024, 32)