Descrição:
Em tempo de execução, como descobrir o DPI da tela aberta no E3Viewer?
Solução:
Para isso, deve-se utilizar um script.
Exemplo de script executado no evento Click de um botão:
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\CIMV2”)
Set colItems = objWMIService.ExecQuery(“SELECT * FROM Win32_DesktopMonitor”,,48)
For Each objItem in colItems
MsgBox “PixelsPerXLogicalInch: ” & objItem.PixelsPerXLogicalInch
MsgBox “PixelsPerYLogicalInch: ” & objItem.PixelsPerYLogicalInch
Next