Frage zu API Funktionen Sendmessage
28.07.2005 07:38:05
Sylvio
ich hab mir mit den API Funktionen ne Fensterabfrage gebastelt.
nun zu meinem Problem VBA findet zwar das Fenster, aber
wenn ich mit SendMessage versuche das Fenster zu schließen dann geht das nicht
ich hab das fenster über API Getwindow und seinen entsprechenden Titel gefunden.
also hwnd ist bereits richtig gefüllt.
GetClassName funktioniert auch lReturn erhält Wert
Option Explicit
...
Declare
Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060
Const LNULL = 0&
Sub Schließen ()
Dim lReturn As Long
lReturn = GetClassName(hwnd, lpClassName, 256)
lReturn = SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, LNULL)
End Sub
Er führt SendMessage aus und lReturn ist dann null aber das gefundene Fenster ist immer noch offen.
Wer kann helfen?
Danke Sylvio
Anzeige