Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

klappt nicht
Autor: Mr Hilfslos
Datum: 01.02.02 08:33
hWnd hat einen Wert, er geht auch in die If Abfrage, aber es passiert nichts !? Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private 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& Private Sub Command1_Click() Dim hWnd As Long hWnd = FindWindow(vbNullString, "D:WINNTSystem32cmd.exe") If hWnd <> 0 Then SendMessage hWnd, WM_SYSCOMMAND, SC_CLOSE, LNULL End If End Sub

Einen Prozes Terminieren...	109	Mr Hilfslos	31.01.02 17:37
Re: Einen Prozes Terminieren...	434	Dieter	31.01.02 18:27
Suppi !!! aber...	74	Mr Hilfslos	31.01.02 18:38
Re: Suppi !!! aber...	429	unbekannt	31.01.02 18:51
Meinte eigentlich...	65	Mr Hilfslos	01.02.02 07:56
klappt nicht	72	Mr Hilfslos	01.02.02 08:33
Re: klappt nicht	365	Dieter	01.02.02 09:03
Wow !!! Ich glaub ich kauf mir noch ein großes dickes Buch.....	132	Mr Hilfslos	01.02.02 09:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen