¿cómo verificar la resolución de pantalla de Windows?

[karinha]

Buenas tardes señores, ¿cómo verificar la resolución de pantalla de Windows, a través del comando FiveWin? ¿Necesito informar o tomar una decisión sobre qué DIÁLOGO "Cargar"? Estoy creando varios DIÁLOGOS para diferentes resoluciones de pantalla.

Gracias,

Regards, saludos.

[karinha]

¿Podría alguien probar este código en WINDOWS 10 o WINDOWS 11 y decirme si funciona o no?

Code: Select all  Expand view

// C:\FWH..\SAMPLES\RESOLU2.PRG

#include 'fivewin.ch'
#Include "dll.ch"
#Include "Struct.ch"

FUNCTION MAIN()

   LOCAL nResoAncho := GetSysMetrics(0)

   IF nResoAncho < 1280 .OR. nResoAncho > 1280

   // CamReso( 800, 600)

   CamReso( 1280, 768)

   MSGINFO('HECHO. AQUI PUEDES INICIAR TU PROGRAMA ELABORADO PARA 1280 X 768')

   ENDIF

RETU nil

Function CamReso( nAncho, nAlto )

   Local DM_PELSWIDTH := nHex("80000")
   Local DM_PELSHEIGHT := nHex("100000")
   Local oDevMode
   Local lPosible
   Local cBuffer
   Local lCamReso := .f.

   DEFAULT nAncho := GetSysMetrics(0), nAlto := GetSysMetrics(1)

   STRUCT oDevMode

      MEMBER cDevName AS STRING LEN 32
      MEMBER nSpecVer AS WORD
      MEMBER nDrvVer AS WORD
      MEMBER nSize AS WORD
      MEMBER nDrvExtra AS WORD
      MEMBER nFields AS DWORD
      MEMBER nOrientat AS WORD
      MEMBER nPaperSiz AS WORD
      MEMBER nPaperLen AS WORD
      MEMBER nPaperWid AS WORD
      MEMBER nScale AS WORD
      MEMBER nCopies AS WORD
      MEMBER nDefSrc AS WORD
      MEMBER nPrnQlty AS WORD
      MEMBER nColor AS WORD
      MEMBER nDuplex AS WORD
      MEMBER nYResolut AS WORD
      MEMBER nTTOpt AS WORD
      MEMBER nCollate AS WORD
      MEMBER cFormName AS STRING LEN 32
      MEMBER nUnusePad AS WORD
      MEMBER nBitsPPel AS DWORD
      MEMBER nPelWidth AS DWORD
      MEMBER nPelHeigh AS DWORD
      MEMBER nDisFlags AS DWORD
      MEMBER nDisFreq AS DWORD

   ENDSTRUCT

   cBuffer := oDevMode:cBuffer
   lPosible := EnumDisplaySettings(0, 0, @cBuffer)

   IF lPosible

      oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT )
      oDevMode:nPelWidth := nAncho
      oDevMode:nPelHeigh := nAlto
      cBuffer:=oDevMode:cBuffer

      TRY
         ChangeDisplaySettings(@cBuffer, 4)
         lCamReso := .T.
      CATCH
         MsgAlert("Modo no soportado", "Error" )
      END
   else
      MsgAlert("Modo no soportado", "Error" )
   endif

return lCamReso

DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,;
iModeNum AS DWORD, ;
@lpDevMode AS LPSTR) AS BOOL PASCAL;
FROM "EnumDisplaySettingsA" LIB "User32.dll"

DLL32 STATIC FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,;
dwFlags AS DWORD) AS DWORD PASCAL;
FROM "ChangeDisplaySettingsA" LIB "User32.dll"

DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,;
dwReserved AS DWORD) AS DWORD PASCAL;
LIB "user32.dll"

// FIN
 

Regards, saludos.

[FiveWiDi]

Buenas tardes señores, ¿cómo verificar la resolución de pantalla de Windows, a través del comando FiveWin? ¿Necesito informar o tomar una decisión sobre qué DIÁLOGO "Cargar"? Estoy creando varios DIÁLOGOS para diferentes resoluciones de pantalla.

Gracias,

Regards, saludos.

Busca ScrResolution()

Creo que te servirá.

[karinha]

¿Cuál es el comando equivalente en FiveWin?

Code: Select all  Expand view

#include "FiveWin.ch"

Static nWIDTH
Static nHEIGHT

FUNCTION Main()

   nWIDTH  := GetDesktopWidth()
   nHEIGHT := GetDesktopHeight()

RETURN Nil
 

Regards, saludos.

[karinha]

Buenas tardes señores, ¿cómo verificar la resolución de pantalla de Windows, a través del comando FiveWin? ¿Necesito informar o tomar una decisión sobre qué DIÁLOGO "Cargar"? Estoy creando varios DIÁLOGOS para diferentes resoluciones de pantalla.

Gracias,

Regards, saludos.

Busca ScrResolution()

Creo que te servirá.

FiveWidi, ScrResolution()? No he encontrado nada en este sentido que me funcione o no lo entiendo. Lo que quiero saber es cuál es la resolución del monitor que el usuario (cliente) ha configurado en su máquina (computadora) y, a partir de esta información, decirle al programa que busque/cargue el cuadro de diálogo Resolución del monitor (video) que eligió el cliente, ¿comprender?

[cmsoft]

João:
Probe tu programa y mi resolucion es: 1366 x 768
Tu programa me indica un mensaje que dice 1280 x 768
Y me sale un cartel de Windows que indica que la resolucion optima es 1366 x 768
Hace un parpadeo previo y pos cierre del programa.
Como para que tengas de referencia.
Saludos

[karinha]

Gracias César Gómez. Sospechaba que en Windows 10 esto no funcionaría. En Windows 7 de 32 bits funciona perfecto, pero hoy en día la mayoría de los clientes usan Windows 10 por ley aquí en Brasil. sigo investigando Muchas gracias.

Regards, saludos.

[karinha]

Code: Select all  Expand view

   nResHoriz := GetSysMetrics(0)
   nResVert  := GetSysMetrics(1)
 

Mi idea era tener un solo diálogo para una RESOLUCIÓN DE PANTALLA 1280 x 768 y cambiar la resolución de pantalla del cliente a 1280 x 768 en tiempo real, y al salir del programa, volvía a su resolución de pantalla original. Pero, como el programa de ejemplo anterior no funcionó en Windows 10, voy a usar GetSysMetrics() para averiguar qué cuadro de diálogo (WS) usará el programa, va a ser mucho trabajo, pero no lo he hecho. No he visto otra solución.

Gracias,

Reagrds, saludos.

[karinha]

Una solución por el momento para no bloquear Windows 10. Las sugerencias siempre son bienvenidas.

Code: Select all  Expand view

#Include "fivewin.ch"
#Include "dbcombo.ch"

STATIC oDlg, oWnd

MEMVAR nResHoriz, nResVert, nResolution

FUNCTION Main()

   // Janela Invisivel - coordenadas
   DEFINE WINDOW oWnd TITLE "Display" FROM -1, -1 TO -1, -1

   nResHoriz := oWnd:nHorzRes() // retorna a resolucao horizontal
   nResVert  := oWnd:nVertRes() // retorna a resolucao vertical

   nResolution := Resolution( oWnd )

   DEFINE DIALOG oDlg SIZE 600, 450 PIXEL ;
      STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 )

   oDlg:lHelpIcon := .F.

   ACTIVATE DIALOG oDlg CENTERED ON INIT( MakeComboBox( oDlg ) )

   oWnd:End()

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION MakeComboBox( oDlg )

   LOCAL oGet, oCbx, oSay
   LOCAL nTotal := 0
   LOCAL cItem := "UNO"

   @ 10,  10 SAY "IMPORTE" OF oDlg PIXEL COLOR CLR_HBLUE TRANSPARENT UPDATE

   // *  3 = 1024 X 768 my resolution
   @ 150, 10 SAY oSay PROMPT "Resolution:-> " + STR(nResolution) OF oDlg     ;
      PIXEL COLOR CLR_BLACK TRANSPARENT UPDATE SIZE 100, 12

   @ 30,  10 GET oGet VAR nTotal OF oDlg SIZE 60, 15 PICTURE "999,999.99"    ;
      PIXEL UPDATE

   @ 10,  80 SAY "Selecciona un ITEM " OF oDlg PIXEL COLOR CLR_HBLUE UPDATE  ;
      TRANSPARENT

   @ 30,  80 COMBOBOX oCbx VAR cItem OF oDlg STYLE CBS_DROPDOWNLIST          ;
      PIXEL SIZE 100, 300 UPDATE ON CHANGE MsgBeep()                         ;
      ITEMS {"UNO","DOS","TRES","CUATRO","CINCO"}
 
RETURN NIL

FUNCTION Resolution( oWnd )

   IF nResHoriz = 2560 .AND. nResVert = 1600

      // 12      2560x1600 8:5 WQXGA     0.05%
      nResolution := 13

   ELSEIF nResHoriz = 2560 .AND. nResVert = 1440

      // 13      2560 x 1440       0.92%
      nResolution := 12

   ELSEIF nResHoriz = 1920 .AND. nResVert = 1080

      //14      1920x1080 16:9 HD 1080  10.97%
      nResolution := 14

   ELSEIF nResHoriz = 1680 .AND. nResVert = 1050

      //15   1680x1050 8:5 WSXGA+    3.29%
      nResolution := 15

   ELSEIF nResHoriz = 1600 .AND. nResVert = 1200

      *  7 = 1600 X 1200
      nResolution := 7

   ELSEIF nResHoriz = 1440 .AND. nResVert = 900

      *  9 = 1440 X 900
      nResolution := 9

   ELSEIF nResHoriz = 1366 .AND. nResVert = 768

      // 16      1366x768 HD     22.98%
      nResolution := 16

   ELSEIF nResHoriz = 1360 .AND. nResVert = 768

      //17      1360x768        2.33%
      nResolution := 17

   ELSEIF nResHoriz = 1280 .AND. nResVert = 1080

      // 18    1280x1080       0.001%
      nResolution := 18

   ELSEIF nResHoriz = 1280 .AND. nResVert = 1024

      *  6 = 1280 X 1024
      nResolution := 6

   ELSEIF nResHoriz = 1280 .AND. nResVert = 960

      // 19      1280x960        0.46%
      nResolution := 19

   ELSEIF nResHoriz = 1280 .AND. nResVert = 800

      *  5 = 1280 X 800
      nResolution := 5

   ELSEIF nResHoriz = 1280 .AND. nResVert = 768

      * 10 = 1280 X 768
      nResolution := 10

   ELSEIF nResHoriz = 1280 .AND. nResVert = 720

      * 11 = 1280 X 720
      nResolution := 11

   ELSEIF nResHoriz = 1280 .AND. nResVert = 600

      // 20     1280x600        0.01%
      nResolution := 20

   ELSEIF nResHoriz = 1152 .AND. nResVert = 864

      *  4 = 1152 X 864
      nResolution := 4

   ELSEIF nResHoriz = 1024 .AND. nResVert = 768

      *  3 = 1024 X 768
      nResolution := 3

   ELSEIF nResHoriz = 800  .AND. nResVert = 600

      *  2 =  800 X 600
      nResolution := 2

   ELSEIF nResHoriz = 768  .AND. nResVert = 1024

      *  8 =  768 X 1024
      nResolution := 8

   ELSEIF nResHoriz = 720  .AND. nResVert = 480

      // 21 720x480 3:2 NTSC        0.001%
      nResolution := 21

   ELSEIF nResHoriz = 640  .AND. nResVert = 480

      *  1 =  640 X 480
      nResolution := 1

   ENDIF

RETURN( nResolution )

// END OF PROGRAM
 

Regards, saludos.

[karinha]

¿Podría alguien probar este código en WINDOWS 10 o WINDOWS 11 y decirme si funciona o no?

Code: Select all  Expand view

// C:\FWH..\SAMPLES\RESOLU2.PRG

#include 'fivewin.ch'
#Include "dll.ch"
#Include "Struct.ch"

FUNCTION MAIN()

   LOCAL nResoAncho := GetSysMetrics(0)

   IF nResoAncho < 1280 .OR. nResoAncho > 1280

   // CamReso( 800, 600)

   CamReso( 1280, 768)

   MSGINFO('HECHO. AQUI PUEDES INICIAR TU PROGRAMA ELABORADO PARA 1280 X 768')

   ENDIF

RETU nil

Function CamReso( nAncho, nAlto )

   Local DM_PELSWIDTH := nHex("80000")
   Local DM_PELSHEIGHT := nHex("100000")
   Local oDevMode
   Local lPosible
   Local cBuffer
   Local lCamReso := .f.

   DEFAULT nAncho := GetSysMetrics(0), nAlto := GetSysMetrics(1)

   STRUCT oDevMode

      MEMBER cDevName AS STRING LEN 32
      MEMBER nSpecVer AS WORD
      MEMBER nDrvVer AS WORD
      MEMBER nSize AS WORD
      MEMBER nDrvExtra AS WORD
      MEMBER nFields AS DWORD
      MEMBER nOrientat AS WORD
      MEMBER nPaperSiz AS WORD
      MEMBER nPaperLen AS WORD
      MEMBER nPaperWid AS WORD
      MEMBER nScale AS WORD
      MEMBER nCopies AS WORD
      MEMBER nDefSrc AS WORD
      MEMBER nPrnQlty AS WORD
      MEMBER nColor AS WORD
      MEMBER nDuplex AS WORD
      MEMBER nYResolut AS WORD
      MEMBER nTTOpt AS WORD
      MEMBER nCollate AS WORD
      MEMBER cFormName AS STRING LEN 32
      MEMBER nUnusePad AS WORD
      MEMBER nBitsPPel AS DWORD
      MEMBER nPelWidth AS DWORD
      MEMBER nPelHeigh AS DWORD
      MEMBER nDisFlags AS DWORD
      MEMBER nDisFreq AS DWORD

   ENDSTRUCT

   cBuffer := oDevMode:cBuffer
   lPosible := EnumDisplaySettings(0, 0, @cBuffer)

   IF lPosible

      oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT )
      oDevMode:nPelWidth := nAncho
      oDevMode:nPelHeigh := nAlto
      cBuffer:=oDevMode:cBuffer

      TRY
         ChangeDisplaySettings(@cBuffer, 4)
         lCamReso := .T.
      CATCH
         MsgAlert("Modo no soportado", "Error" )
      END
   else
      MsgAlert("Modo no soportado", "Error" )
   endif

return lCamReso

DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,;
iModeNum AS DWORD, ;
@lpDevMode AS LPSTR) AS BOOL PASCAL;
FROM "EnumDisplaySettingsA" LIB "User32.dll"

DLL32 STATIC FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,;
dwFlags AS DWORD) AS DWORD PASCAL;
FROM "ChangeDisplaySettingsA" LIB "User32.dll"

DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,;
dwReserved AS DWORD) AS DWORD PASCAL;
LIB "user32.dll"

// FIN
 

Regards, saludos.

En Windows 7 de 32 bits, esto funciona perfecto. En windows 10, NO! Una Lástima. jejejejejeje.

https://imgur.com/a/3V7pcwZ



Regards, saludos.

[karinha]

Master Antônio, la razón por la que no funciona en Windows 10, ¿tiene algo que ver con esta función de micro$oft?

https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-changedisplaysettingsa

Gracias,

Reagrds, saludos.

[Jimmy]

hi,

to get (real) "native" Resolution you can use

Code: Select all  Expand view

#define DESKTOPVERTRES       0x0075   // (117) Vertical height  of entire desktop in pixels
#define DESKTOPHORZRES       0x0076   // (118) Horizontal width of entire desktop in pixels

https://forums.fivetechsupport.com/viewtopic.php?t=41228&start=10

or WMI

Code: Select all  Expand view

FUNCTION VideoCard()
LOCAL oWmi, oVideo
LOCAL cInfo  := REPLICATE( "-", 79 ) + CRLF
LOCAL bError := ERRORBLOCK( { | oErr | BREAK( oErr ) } )
   oWmi := WmiService()
   BEGIN SEQUENCE

      FOR EACH oVideo IN oWmi:ExecQuery( "SELECT * FROM Win32_VideoController" )
         cInfo += "Grafic                  : " + oVideo:Description + CRLF
         cInfo += "VideoMode         : " + oVideo:VideoModeDescription + CRLF
         cInfo += "DriverVersion      : " + oVideo:DriverVersion + CRLF
      NEXT
   END SEQUENCE
   ERRORBLOCK( bError )
RETURN cInfo

FUNCTION WMIService()
LOCAL oLocator
   IF oWMI == NIL
      oLocator := CreateObject( "wbemScripting.SwbemLocator" )
      oWMI := oLocator:ConnectServer()
   ENDIF
RETURN oWMI

[karinha]

Hi Jimmy, this returns my video card. esto devuelve mi tarjeta de video.

https://i.imgur.com/7C1qSgR.png

Code: Select all  Expand view

// C:\FWH..\SAMPLES\JIMMY3.PRG

#include "FiveWin.ch"

STATIC oWmi

FUNCTION Main()

   LOCAL cInfoVid

   cInfoVid := VideoCard()

   ? cInfoVid

RETURN NIL

FUNCTION VideoCard()

   LOCAL oVideo
   LOCAL cInfo  := REPLICATE( "-", 79 ) + CRLF
   LOCAL bError := ERRORBLOCK( { | oErr | BREAK( oErr ) } )

   oWmi := WmiService()

   BEGIN SEQUENCE

      FOR EACH oVideo IN oWmi:ExecQuery( "SELECT * FROM Win32_VideoController" )
         cInfo += "Grafic                  : " + oVideo:Description + CRLF
         cInfo += "VideoMode         : " + oVideo:VideoModeDescription + CRLF
         cInfo += "DriverVersion      : " + oVideo:DriverVersion + CRLF
      NEXT

   END SEQUENCE

   ERRORBLOCK( bError )

RETURN cInfo

FUNCTION WMIService()

   LOCAL oLocator

   IF oWMI == NIL

      oLocator := CreateObject( "wbemScripting.SwbemLocator" )
      oWMI     := oLocator:ConnectServer()

   ENDIF

RETURN oWMI

// FIN
 

Regards, saludos.

[Jimmy]

hi,

VIA Chrome9 HV IGP Family

is very old and support only DirectX 9.0 ...

you can "test" other oVideo:Property

Code: Select all  Expand view

LOCAL aProperty := {;
"AcceleratorCapabilities",;
"AdapterCompatibility",;
"AdapterDACType",;
"AdapterRAM",;
"Availability",;
"CapabilityDescriptions",;
"Caption",;
"ColorTableEntries",;
"ConfigManagerErrorCode",;
"ConfigManagerUserConfig",;
"CreationClassName",;
"CurrentBitsPerPixel",;
"CurrentHorizontalResolution",;
"CurrentNumberOfColors",;
"CurrentNumberOfColumns",;
"CurrentNumberOfRows",;
"CurrentRefreshRate",;
"CurrentScanMode",;
"CurrentVerticalResolution",;
"Description",;
"DeviceID",;
"DeviceSpecificPens",;
"DitherType",;
"DriverDate",;
"DriverVersion",;
"ErrorCleared",;
"ErrorDescription",;
"ICMIntent",;
"ICMMethod",;
"InfFilename",;
"InfSection",;
"InstallDate",;
"InstalledDisplayDrivers",;
"LastErrorCode",;
"MaxMemorySupported",;
"MaxNumberControlled",;
"MaxRefreshRate",;
"MinRefreshRate",;
"Monochrome",;
"Name",;
"NumberOfColorPlanes",;
"NumberOfVideoPages",;
"PNPDeviceID",;
"PowerManagementCapabilities",;
"PowerManagementSupported",;
"ProtocolSupported",;
"ReservedSystemPaletteEntries",;
"SpecificationVersion",;
"Status",;
"StatusInfo",;
"SystemCreationClassName",;
"SystemName",;
"SystemPaletteEntries",;
"TimeOfLastReset",;
"VideoArchitecture",;
"VideoMemoryType",;
"VideoMode",;
"VideoModeDescription",;
"VideoProcessor" }
 

[karinha]

Hello Jimmy. I think you didn't understand what I want. Please, to understand, you need to test the example I posted above on a machine with WINDOW 7 and then on a machine with WINDOWS 10, then you will understand what I want, ok?

Tks

Regards, saludos.