Olá...
Existe algum comando que permita alterar a Resolução do Vídeo em Run Time ?
EX:
Function Main()
Local oWnd, aCoor:={}, Resolucao:=""
aCoor := GetCoor(GetDesktopWindow())
Resolucao := aCoor[4]+"x"+aCoor[3]
Do case
case Resolucao = "1024x768"
** comando para mudar para 800 x 600
case resolucao = "1152x864"
** comando para mudar para 800 x 600
case resolucao = "1280x600"
** comando para mudar para 800 x 600
case resolucao = "1280x720"
** comando para mudar para 800 x 600
case resolucao = "1280x768"
** comando para mudar para 800 x 600
case resolucao = "1280x960"
** comando para mudar para 800 x 600
case resolucao = "1280x1024"
** comando para mudar para 800 x 600
case resolucao = "1400x1050"
** comando para mudar para 800 x 600
case resolucao = "1600x900"
** comando para mudar para 800 x 600
case resolucao = "1600x1200"
** comando para mudar para 800 x 600
case resolucao = "1856x1392"
** comando para mudar para 800 x 600
case resolucao = "1920x1080"
** comando para mudar para 800 x 600
case resolucao = "1920x1200"
** comando para mudar para 800 x 600
case resolucao = "1920x1440"
** comando para mudar para 800 x 600
case resolucao = "2048x1536"
** comando para mudar para 800 x 600
endcase
Grato
Saludos.