API di Windows. Chiudere un'applicazione con le API
		Stampa	Torna Indietro
Linguaggio: Visual Basic	Autore: VB-World		Data Archiviazione: 14/07/1999

Potete usare le funzioni API FindWindow e PostMessage per trovare una finestra e chiuderla. Questo esempio mostra come se ne può chiudere una con la barra del titolo impostata a "Calcolatrice".

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 è 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