Hallo,
wie kann man ermitteln ob ein externes Programm minimiert oder maximiert läuft?
Danke.
Gruß
Gunter
Hallo,
ich habe da etwas gefunden.
Gruß Rainer
Private Const SW\_MINIMIZE = 6
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Dim Rectan As RECT
Private Sub Form\_Load()
'Tip submitted by pyp99 ([email protected])
Dim WinEst As WINDOWPLACEMENT
Dim rtn As Long
WinEst.Length = Len(WinEst)
'get the current window placement
rtn = GetWindowPlacement(Me.hwnd, WinEst)
Rectan = WinEst.rcNormalPosition
End Sub
Private Sub Command1\_Click()
Dim WinEst As WINDOWPLACEMENT
Dim Punto As POINTAPI
Dim rtn As Long
'set the new min/max positions
Punto.x = 100
Punto.y = 100
'initialize the structure
WinEst.Length = Len(WinEst)
WinEst.showCmd = SW\_MINIMIZE
WinEst.ptMinPosition = Punto
WinEst.ptMaxPosition = Punto
WinEst.rcNormalPosition = Rectan
'set the new window placement (minimized)
rtn = SetWindowPlacement(Me.hwnd, WinEst)
End Sub
Hallo Rainer,
danke für die Info.
Wenn ich dies richtig verstanden habe, funktioniert dies nur mit einer eigenen Form.
Oder geht dies auch mit einem Fremdprogramm?
Gruß
Gunter
Hallo Gunter,
Wenn ich dies richtig verstanden habe, funktioniert dies nur
mit einer eigenen Form.
Oder geht dies auch mit einem Fremdprogramm?
das Beispiel funktioniert mit der eigenen Form, weil in dieser Zeile:
rtn = GetWindowPlacement(Me.hwnd, WinEst)
Mit Me.hwnd das Handle der eigenen Form übergeben wird. Übergibst Du das Handle eines anderen Programms, bekommst Du Informationen über dieses.
Gruß Rainer
Hallo Rainer,
besten Dank, es funktioniert.
Gruß
Gunter