Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tastatur sperren!
Autor: Bert78
Datum: 17.08.03 00:08
hi vielleicht hilft dir das ------------------------- Call DOWN ------------------------- Public Function RebootSystem(ByVal Action As EWX_ACTION) _ As Boolean Dim ret As Long Dim hToken As Long Dim tkp As TOKEN_PRIVILEGES Dim tkpOld As TOKEN_PRIVILEGES Dim fOkReboot As Boolean Const sSHUTDOWN As String = "SeShutdownPrivilege" If IsWindowsNT() Then ' Windows NT wird ausgeführt. ' Sicherheitsüberprüfungen und ' Veränderungen sind jetzt notwendig, ' um sicherzustellen, daß das Token ' vorhanden ist, das einen Neustart zuläßt. If OpenProcessToken(GetCurrentProcess(), _ TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken) Then ret = LookupPrivilegeValue(vbNullString, _ sSHUTDOWN, tkp.Privileges(0).pLuid) tkp.PrivilegeCount = 1 tkp.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED fOkReboot = AdjustTokenPrivileges(hToken, 0, tkp, _ LenB(tkpOld), tkpOld, ret) End If Else ' Win95/98 wird ausgeführt. Keine Aktion ist notwendig. fOkReboot = True End If If fOkReboot Then _ RebootSystem = (ExitWindowsEx(Action, 0) <> 0) End Function ----------------------- cu bert

Tastatur sperren!	178	Playboy	04.08.03 15:10
Re: Tastatur sperren!	455	Dieter	04.08.03 15:14
Re: Tastatur sperren!	105	Playboy	04.08.03 15:19
Re: Tastatur sperren!	468	Dieter	04.08.03 15:22
Re: Tastatur sperren!	101	Playboy	04.08.03 15:24
Re: Tastatur sperren!	443	E7	05.08.03 10:02
Re: Tastatur sperren!	102	CaBaL	05.08.03 12:23
Wenn schon -	101	JennyB	05.08.03 12:26
Re: Tastatur sperren!	433	E7	16.08.03 11:19
Re: Tastatur sperren!	416	Bert78	17.08.03 00:08

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