eigener Code für Bildschirmauflösung ändern & externe Prozess HWND

Takafusa · 5. Mai 2022, 07:49

Xiantrius schrieb:

Wie gesagt der Name sollte ein Sinn ergeben und damit @Takafusa zufrieden ist werde ich die Structure DEVMODEA benennen.

Also wie du da was nennst ist natürlich dein Ding, Ich habe den Namen so gewählt, damit man das sofort wieder erkennt, denn schaut man in die Doku, sieht man sofort was was ist.
Bespiel DEVMODEA:
docs.microsoft.com/en-us/windo…wingdi/ns-wingdi-devmodea

Ist halt Geschmackssache.

Xiantrius · 5. Mai 2022, 08:01

Ich meinte damit das der Name ABC usw... kein sinn machen, sollte erkennbar für den Programmierer sein.
Angenommen ich würde 1 Jahre das Projekt nicht mehr anrühren und erst dannach irgendwan wieder, müsste ich mich wieder einlesen. Daher ist es wichtig richtige Namen die einen helfen drin zu haben das ist mir klar.
Das war nicht böse gegenüber dir gemeint und eventuel so wie du es aufgefasst hast habe ich mich vielleicht falsch ausgedrückt.
Tut mir leid.

Wollte nur versuchen zu erklären.
Wenn es nur um die funktion gehen würde, ist es egal welchen Namen man wählt solange die funktion gewährleistet bleibt. Macht allerdings nur dann nicht viel Sinn, wenn der Name nicht mehr zum Themen Projekt passt.

-Franky- · 5. Mai 2022, 10:56

Hi

Ich habe mir mal die Arbeit gemacht und die Structure DEVMODEA so umgebaut, wie sie in der MS-Doku beschrieben ist (inkl. Union/DUMMYSTRUCTNAME). Denke das das so passt weil getestet.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices
Public Class Form1
Private Enum DM_FLAGS As Integer
DM_DISPLAYORIENTATION = &H80
DM_BITSPERPEL = &H40000
DM_PELSWIDTH = &H80000
DM_PELSHEIGHT = &H100000
DM_DISPLAYFLAGS = &H200000
DM_DISPLAYFREQUENCY = &H400000
DM_DISPLAYFIXEDOUTPUT = &H20000000
End Enum
Private Enum DMDO_FLAGS As Integer
DMDO_DEFAULT = 0
DMDO_90 = 1
DMDO_180 = 2
DMDO_270 = 3
End Enum
Private Enum DMDFO_FLAGS As Integer
DMDFO_DEFAULT = 0
DMDFO_STRETCH = 1
DMDFO_CENTER = 2
End Enum
<StructLayout(LayoutKind.Explicit)>
Private Structure POINTL
<FieldOffset(0)> Dim x As Integer
<FieldOffset(4)> Dim y As Integer
End Structure
<StructLayout(LayoutKind.Explicit)>
Private Structure DEVMODEA
<FieldOffset(0)> <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Dim dmDeviceName As String
<FieldOffset(32)> Dim dmSpecVersion As Short
<FieldOffset(34)> Dim dmDriverVersion As Short
<FieldOffset(36)> Dim dmSize As Short
<FieldOffset(38)> Dim dmDriverExtra As Short
<FieldOffset(40)> Dim dmFields As DM_FLAGS
'union {
' struct {
<FieldOffset(44)> Dim dmOrientation As Short
<FieldOffset(46)> Dim dmPaperSize As Short
<FieldOffset(48)> Dim dmPaperLength As Short
<FieldOffset(50)> Dim dmPaperWidth As Short
<FieldOffset(52)> Dim dmScale As Short
<FieldOffset(54)> Dim dmCopies As Short
<FieldOffset(56)> Dim dmDefaultSource As Short
<FieldOffset(58)> Dim dmPrintQuality As Short
' } DUMMYSTRUCTNAME;
<FieldOffset(44)> Dim dmPosition As POINTL
' struct {
'<FieldOffset(44)> Dim dmPosition As POINTL
<FieldOffset(52)> Dim dmDisplayOrientation As DMDO_FLAGS
<FieldOffset(56)> Dim dmDisplayFixedOutput As DMDFO_FLAGS
' } DUMMYSTRUCTNAME2;
'} DUMMYUNIONNAME;
<FieldOffset(60)> Dim dmColor As Short
<FieldOffset(62)> Dim dmDuplex As Short
<FieldOffset(64)> Dim dmYResolution As Short
<FieldOffset(66)> Dim dmTTOption As Short
<FieldOffset(68)> Dim dmCollate As Short
'<FieldOffset(70)> Dim dummy As Short '<- sonst passt das Align für dmFormName nicht!!!
<FieldOffset(72)> <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Dim dmFormName As String
<FieldOffset(104)> Dim dmLogPixels As Short
<FieldOffset(104)> Dim dmBitsPerPel As Integer
<FieldOffset(108)> Dim dmPelsWidth As Integer
<FieldOffset(112)> Dim dmPelsHeight As Integer
<FieldOffset(116)> Dim dmDisplayFlags As Integer
'union {
<FieldOffset(120)> Dim dmNup As Integer
<FieldOffset(120)> Dim dmDisplayFrequency As Integer
'} DUMMYUNIONNAME2;
<FieldOffset(124)> Dim dmICMMethod As Integer
<FieldOffset(128)> Dim dmICMIntent As Integer
<FieldOffset(132)> Dim dmMediaType As Integer
<FieldOffset(136)> Dim dmDitherType As Integer
<FieldOffset(140)> Dim dmReserved1 As Integer
<FieldOffset(144)> Dim dmReserved2 As Integer
<FieldOffset(148)> Dim dmPanningWidth As Integer
<FieldOffset(152)> Dim dmPanningHeight As Integer
End Structure
<DllImport("user32.dll", EntryPoint:="EnumDisplaySettingsA")>
Private Shared Function EnumDisplaySettings(<[In], MarshalAs(UnmanagedType.LPStr)> lpszDeviceName As String,
<[In]> iModeNum As Integer,
<Out> ByRef lpDevMode As DEVMODEA) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim intModeNum As Integer = 0
Dim tDevMode As New DEVMODEA
Do While EnumDisplaySettings(Nothing, intModeNum, tDevMode)
Debug.Print("DisplayMode: " & intModeNum.ToString)
Debug.Print("----------------")
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYFLAGS) Then
If CBool(tDevMode.dmFields And DM_FLAGS.DM_PELSWIDTH) Then Debug.Print("PelsWidth: " & tDevMode.dmPelsWidth.ToString)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_PELSHEIGHT) Then Debug.Print("PelsHeight: " & tDevMode.dmPelsHeight.ToString)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_BITSPERPEL) Then Debug.Print("BitsPerPel: " & tDevMode.dmBitsPerPel.ToString)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYFREQUENCY) Then Debug.Print("DisplayFrequency: " & tDevMode.dmDisplayFrequency.ToString)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYORIENTATION) Then Debug.Print("DisplayOrientation: " & tDevMode.dmDisplayOrientation.ToString)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYFIXEDOUTPUT) Then Debug.Print("DisplayFixedOutput: " & tDevMode.dmDisplayFixedOutput.ToString)
End If
Debug.Print("********************************")
Debug.Print(Nothing)
intModeNum += 1
Loop
End Sub
End Class

Im grunde bedeutet dieses das die Flags (dmFields) bereits beim auslesen vorhanden sind und bei ChangeDisplaySettings nicht extra festgelegt werden müssen. Deswegen ja auch der Vorschlag mit einer List(Of DEVMODEA).

-Franky- · 6. Mai 2022, 09:09

Hi

Die Structure DEVMODEA im Post83 ist dann doch nicht so ganz richtig. Das Alignment stimmt da nicht so wirklich. Also vergess das.

Da ich ja sowieso da grad damit am spielen war, hab ich das ganze mal für Multimonitorsysteme ausgebaut (nur auslesen der Auflösungen per EnumDisplaySettingsEx mit Flag EDS_ROTATEDMODE).

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Text
Imports System.Runtime.InteropServices
Public Class Form1
Private Const MONITORINFO_PRIMARY As Integer = 1
Private Enum DM_FLAGS As Integer
DM_DISPLAYORIENTATION = &H80
DM_BITSPERPEL = &H40000
DM_PELSWIDTH = &H80000
DM_PELSHEIGHT = &H100000
DM_DISPLAYFLAGS = &H200000
DM_DISPLAYFREQUENCY = &H400000
DM_DISPLAYFIXEDOUTPUT = &H20000000
End Enum
Private Enum DMDO_FLAGS As Integer
DMDO_DEFAULT = 0
DMDO_90 = 1
DMDO_180 = 2
DMDO_270 = 3
End Enum
Private Enum DMDFO_FLAGS As Integer
DMDFO_DEFAULT = 0
DMDFO_STRETCH = 1
DMDFO_CENTER = 2
End Enum
Private Enum EDS_FLAGS As Integer
EDS_RAWMODE = 2
EDS_ROTATEDMODE = 4
End Enum
<StructLayout(LayoutKind.Sequential)>
Private Structure MONITORINFOEX
Dim cbSize As Integer
Dim rcMonitor As Rectangle
Dim rcWork As Rectangle
Dim dwFlags As Integer
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Dim szDevice As String
Sub New(StructSize As Integer)
cbSize = StructSize
End Sub
End Structure
<StructLayout(LayoutKind.Sequential)>
Private Structure DEVMODEA
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Dim dmDeviceName As String
Dim dmSpecVersion As Short
Dim dmDriverVersion As Short
Dim dmSize As Short
Dim dmDriverExtra As Short
Dim dmFields As DM_FLAGS
Dim dmPosition As Point
Dim dmDisplayOrientation As DMDO_FLAGS
Dim dmDisplayFixedOutput As DMDFO_FLAGS
Dim dmColor As Short
Dim dmDuplex As Short
Dim dmYResolution As Short
Dim dmTTOption As Short
Dim dmCollate As Short
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Dim dmFormName As String
Dim dmLogPixels As Short
Dim dmBitsPerPel As Integer
Dim dmPelsWidth As Integer
Dim dmPelsHeight As Integer
Dim dmDisplayFlags As Integer
Dim dmDisplayFrequency As Integer
Dim dmICMMethod As Integer
Dim dmICMIntent As Integer
Dim dmMediaType As Integer
Dim dmDitherType As Integer
Dim dmReserved1 As Integer
Dim dmReserved2 As Integer
Dim dmPanningWidth As Integer
Dim dmPanningHeight As Integer
Sub New(StructSize As Integer)
dmSize = CShort(StructSize)
End Sub
End Structure
<DllImport("User32.dll", EntryPoint:="EnumDisplayMonitors")>
Private Shared Function EnumDisplayMonitors(<[In]> hdc As IntPtr,
<[In]> lprcClip As IntPtr,
<[In]> lpfnEnum As MonitorEnumProcDelegate,
<[In]> dwData As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("User32.dll", EntryPoint:="GetMonitorInfoA")>
Private Shared Function GetMonitorInfo(<[In]> hMonitor As IntPtr,
<[In], Out> ByRef lpmi As MONITORINFOEX) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("User32.dll", EntryPoint:="EnumDisplaySettingsExA")>
Private Shared Function EnumDisplaySettingsEx(<[In], MarshalAs(UnmanagedType.LPStr)> lpszDeviceName As String,
<[In]> iModeNum As Integer,
<[In], Out> ByRef lpDevMode As DEVMODEA,
<[In]> dwFlags As EDS_FLAGS) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Private ReadOnly m_MonitorInfo As New StringBuilder
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
TextBox1.Multiline = True
TextBox1.ScrollBars = ScrollBars.Vertical
TextBox1.WordWrap = False
TextBox1.Font = New Font("Courier New", 10, GraphicsUnit.Point)
EnumDisplayMonitors(IntPtr.Zero, IntPtr.Zero, MonitorEnumProc, 0)
TextBox1.Text = m_MonitorInfo.ToString
End Sub
Private ReadOnly MonitorEnumProc As New MonitorEnumProcDelegate(AddressOf MonitorEnumProcFunc)
Private Delegate Function MonitorEnumProcDelegate(<[In]> hMonitor As IntPtr,
<[In]> hDCMonitor As IntPtr,
<[In]> lprcMonitor As IntPtr,
<[In]> dwData As Integer) As Boolean
Private Function MonitorEnumProcFunc(hMonitor As IntPtr, hDCMonitor As IntPtr, lprcMonitor As IntPtr, dwData As Integer) As Boolean
Dim tMONITORINFOEX As New MONITORINFOEX(Marshal.SizeOf(Of MONITORINFOEX))
If GetMonitorInfo(hMonitor, tMONITORINFOEX) Then
m_MonitorInfo.Append("Device: " & tMONITORINFOEX.szDevice & Environment.NewLine)
If tMONITORINFOEX.dwFlags = MONITORINFO_PRIMARY Then
m_MonitorInfo.Append("IsPrimary: True" & Environment.NewLine)
Else
m_MonitorInfo.Append("IsPrimary: False" & Environment.NewLine)
End If
m_MonitorInfo.Append("MonitorRect: " & tMONITORINFOEX.rcMonitor.ToString & Environment.NewLine)
m_MonitorInfo.Append("MonitorWorkRect: " & tMONITORINFOEX.rcWork.ToString & Environment.NewLine)
Dim intModeNum As Integer = 0
Dim tDevMode As New DEVMODEA(Marshal.SizeOf(Of DEVMODEA))
Do While EnumDisplaySettingsEx(tMONITORINFOEX.szDevice, intModeNum, tDevMode, EDS_FLAGS.EDS_ROTATEDMODE)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYFLAGS) Then
m_MonitorInfo.Append(Environment.NewLine)
m_MonitorInfo.Append(" DisplayMode: " & intModeNum.ToString & Environment.NewLine)
m_MonitorInfo.Append(" ----------------" & Environment.NewLine)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_PELSWIDTH) Then m_MonitorInfo.Append(" PelsWidth: " & tDevMode.dmPelsWidth.ToString & Environment.NewLine)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_PELSHEIGHT) Then m_MonitorInfo.Append(" PelsHeight: " & tDevMode.dmPelsHeight.ToString & Environment.NewLine)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_BITSPERPEL) Then m_MonitorInfo.Append(" BitsPerPel: " & tDevMode.dmBitsPerPel.ToString & Environment.NewLine)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYFREQUENCY) Then m_MonitorInfo.Append(" DisplayFrequency: " & tDevMode.dmDisplayFrequency.ToString & Environment.NewLine)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYORIENTATION) Then m_MonitorInfo.Append(" DisplayOrientation: " & tDevMode.dmDisplayOrientation.ToString & Environment.NewLine)
If CBool(tDevMode.dmFields And DM_FLAGS.DM_DISPLAYFIXEDOUTPUT) Then m_MonitorInfo.Append(" DisplayFixedOutput: " & tDevMode.dmDisplayFixedOutput.ToString & Environment.NewLine)
m_MonitorInfo.Append(" --------------------------------" & Environment.NewLine)
End If
intModeNum += 1
Loop
m_MonitorInfo.Append("============================================================" & Environment.NewLine)
m_MonitorInfo.Append(Environment.NewLine)
End If
Return True
End Function
End Class

Xiantrius · 6. Mai 2022, 18:04

Du nimmst dir wohl gerne Zeit dafür @-Franky- um das alles zu analysieren wie das alles funktioniert. Ich merk schon :).

-Franky- · 6. Mai 2022, 18:21

Hi

Hängt ganz davon ab ob mich das Thema interessiert oder nicht. Gut, dieses Thema ist jetzt nicht soooo spannend. Zumindest werde ich das ganze nicht soweit auf die Spitze treiben das ich dann per API auch noch die Umstellung auf eine andere Auflösung teste.

Xiantrius · 7. Mai 2022, 07:36

hi Leute,
Habe ein anderes experiment versucht, doch leider ist es wie erwartet gescheitert.
Habe versucht statt direkt ein Monitor ein Prozessfenster anzusprechen. Hat auch von Code her funktioniert.
Aber der Ausführung wird nicht angenommen.

funktioniert nicht, oder doch? vielleicht wenn es für Prozess HWND's über diese API was gibt.

VB.NET-Quellcode

For Each Prozess In Process.GetProcessesByName("notepad")
ChangeResolution(CUInt(Prozess.MainWindowHandle), 640, 480)
Next

Natürlich gibt es ja noch eine andere API wo man das steuern kann das ist mir klar. Allerdings funktioniert das nur bei Anwendungen die in Fenstermodus laufen, wenn ich mich nicht irre. Jedenfalls reagiert meine Vollbildanwendung überhaupt nicht drauf, weil er die Werte in den Modus nicht findet.
Hab da kleines Beispiel der Sub TestResHWND greift auf den WindowHandle zu und die API kann Position und die Auflösung des Fensters ändern.
Wie geht das bei Vollbild Anwendungen?
Die API kennt ihr bestimmt.

VB.NET-Quellcode

<Runtime.InteropServices.DllImport("user32.dll")>
Private Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
End Function
Public Enum SetWindowPosFlags As UInteger
''' <summary>If the calling thread and the thread that owns the window are attached to different input queues,
''' the system posts the request to the thread that owns the window. This prevents the calling thread from
''' blocking its execution while other threads process the request.</summary>
''' <remarks>SWP_ASYNCWINDOWPOS</remarks>
SynchronousWindowPosition = &H4000
''' <summary>Prevents generation of the WM_SYNCPAINT message.</summary>
''' <remarks>SWP_DEFERERASE</remarks>
DeferErase = &H2000
''' <summary>Draws a frame (defined in the window's class description) around the window.</summary>
''' <remarks>SWP_DRAWFRAME</remarks>
DrawFrame = &H20
''' <summary>Applies new frame styles set using the SetWindowLong function. Sends a WM_NCCALCSIZE message to
''' the window, even if the window's size is not being changed. If this flag is not specified, WM_NCCALCSIZE
''' is sent only when the window's size is being changed.</summary>
''' <remarks>SWP_FRAMECHANGED</remarks>
FrameChanged = &H20
''' <summary>Hides the window.</summary>
''' <remarks>SWP_HIDEWINDOW</remarks>
HideWindow = &H80
''' <summary>Does not activate the window. If this flag is not set, the window is activated and moved to the
''' top of either the topmost or non-topmost group (depending on the setting of the hWndInsertAfter
''' parameter).</summary>
''' <remarks>SWP_NOACTIVATE</remarks>
DoNotActivate = &H10
''' <summary>Discards the entire contents of the client area. If this flag is not specified, the valid
''' contents of the client area are saved and copied back into the client area after the window is sized or
''' repositioned.</summary>
''' <remarks>SWP_NOCOPYBITS</remarks>
DoNotCopyBits = &H100
''' <summary>Retains the current position (ignores X and Y parameters).</summary>
''' <remarks>SWP_NOMOVE</remarks>
IgnoreMove = &H2
''' <summary>Does not change the owner window's position in the Z order.</summary>
''' <remarks>SWP_NOOWNERZORDER</remarks>
DoNotChangeOwnerZOrder = &H200
''' <summary>Does not redraw changes. If this flag is set, no repainting of any kind occurs. This applies to
''' the client area, the nonclient area (including the title bar and scroll bars), and any part of the parent
''' window uncovered as a result of the window being moved. When this flag is set, the application must
''' explicitly invalidate or redraw any parts of the window and parent window that need redrawing.</summary>
''' <remarks>SWP_NOREDRAW</remarks>
DoNotRedraw = &H8
''' <summary>Same as the SWP_NOOWNERZORDER flag.</summary>
''' <remarks>SWP_NOREPOSITION</remarks>
DoNotReposition = &H200
''' <summary>Prevents the window from receiving the WM_WINDOWPOSCHANGING message.</summary>
''' <remarks>SWP_NOSENDCHANGING</remarks>
DoNotSendChangingEvent = &H400
''' <summary>Retains the current size (ignores the cx and cy parameters).</summary>
''' <remarks>SWP_NOSIZE</remarks>
IgnoreResize = &H1
''' <summary>Retains the current Z order (ignores the hWndInsertAfter parameter).</summary>
''' <remarks>SWP_NOZORDER</remarks>
IgnoreZOrder = &H4
''' <summary>Displays the window.</summary>
''' <remarks>SWP_SHOWWINDOW</remarks>
ShowWindow = &H40
End Enum
'Beispiel Ausführung
Private Sub TestResHWND
For Each Prozess In Process.GetProcessesByName("notepad")
'1 = HWND , 2 = X Position, 3 = Y Position, 4 = Bildschirmbreite, 5 = Bildschirmlänge, 6 = K.A was da hin soll
SetWindowPos(Prozess.MainWindowHandle, Nothing, 0, 0, 640, 480, 0)
Next
End Sub

-Franky- · 7. Mai 2022, 09:15

Hi

Wäre es nicht besser dazu einen neuen Thread zu erstellen weil die Überschrift zu diesem Thread passt nicht zu Deiner jetzigen Frage.

Xiantrius · 7. Mai 2022, 10:27

-Franky- schrieb:

Hi

Wäre es nicht besser dazu einen neuen Thread zu erstellen weil die Überschrift zu diesem Thread passt nicht zu Deiner jetzigen Frage.

Du hast recht, hab das hier jetzt drin.
Resolution und Position einer externen Anwendung steuern bzw. auslesen auch bei Vollbild Modus.

eigener Code für Bildschirmauflösung ändern & externe Prozess HWND

Xiantrius schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Resolution und Position einer externen Anwendung steuern bzw. auslesen auch bei Vollbild Modus.

VB.NET-Quellcode

VB.NET-Quellcode

-Franky- schrieb:

Benutzer online 1

Ähnliche Themen

6 Benutzer haben hier geschrieben