|
| Find et program, og luk det. Er bedømt af 3 brugere Fra : niller | Vist : 608 gange
Dato : 17-12-00 12:45 |
|
Her er et tip om, hvordan du kan finde et bestemt program, og derefter lukke det.
Start med et module og tilføj :
-----------------------------------------------
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
-----------------------------------------------
Derefter kan du tilføje følgende til din form :
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Calculator")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Fejl : kan ikke lukke programmet."
End If
Else
MsgBox "Programmet er ikke åben."
End If
End Sub
| |
| Bedømmelse
Fra : katrin |
Dato : 23-06-02 00:59 |
| | |
| Bedømmelse
Fra : Rellom |
Dato : 15-08-02 05:41 |
| | |
| Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|