---

Gibt es in CATScript eine möglichkeit das Fenster eines (andere Programme wie z.B. Notepad) Programmes zu aktivieren/in den Vordergrund zu bringen und die Fenstergrösse maximieren?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo hexxi24,

hiermit kannste Dir was zusammenbauen. Evt. mußt Du noch ein paar Pausen setzen....

Gruß
  Mark

Code:

---

Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal X As Long, ByVal Y As Long, _
    ByVal cx As Long, ByVal cy As Long, _
    ByVal wFlags As Long) As Long

   
Declare Function PostMessage Lib "user32" _
    Alias "PostMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
   
Declare Function ShowWindow Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
   
Const WM_ACTIVATE As Long = &H6
Const WM_SETFOCUS As Long = &H7
Const SW_SHOWMAXIMIZED As Long = 3

Sub CatMain()

    hwin = FindWindow("Notepad", vbNullString)

    'Fenster in Vordergrund und maximieren
    ShowWindow hwin, SW_SHOWMAXIMIZED

    'Positionieren
    'SetWindowPos hwin, HWND_TOP, 0, 0, 1000, 1000, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE

    'Aktivieren über "WM_ACTIVATE"
    PostMessage hwin, WM_ACTIVATE, 0, 0
 
    'Aktivieren über "WM_SETFOCUS"
    PostMessage hwin, WM_SETFOCUS, 0, 0
 
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP