|
Dim winHwnd As Long
Dim RetVal As Long winHwnd = FindWindow(vbNullString, "Calcolatrice") If winHwnd <> 0 Then RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) If RetVal = 0 Then MsgBox "Errore nella chiusura." End If Else MsgBox "La Calcolatrice non e' aperta." End If 'Per far funzionare il codice dovete, dopo aver creato un nuovo 'progetto, dichiarare le seguenti funzioni in un modulo .bas: Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName _ As String) 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 Public Const WM_CLOSE = &H10 Potete usare le funzioni API FindWindow e PostMessage per trovare una finestra e chiuderla. Questo esempio mostra come se ne puo' chiudere una con la barra del titolo impostata a "Calcolatrice". |