Re: Beenden verhindern

Hi Sebastian,

versuchs mal über folgende Funktion. Es wird simuliert, daß der Screensaver aktiv sei. Dadurch werden die Windows-Taste, Alt-Tab, Ctrl-Alt-Entf deaktiviert.

'Deklaration:
Public Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal _
uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni _
As Long) As Long

'Aufrufe:
'Systemtasten deaktivieren
SystemParametersInfo 97, True, "1", 0

'Systemtasten aktivieren
SystemParametersInfo 97, False, "1", 0

Falls du noch die Taskleiste verstecken willst:

'Deklaration
Public Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Public Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H40

'Aufrufe:
'Taskbar verstecken
dim h&
h& = FindWindow("Shell_TrayWnd", vbNullString)
SetWindowPos h, 0, 0, 0, 10, 10, SWP_HIDEWINDOW

'Taskbar anzeigen
dim h&
h& = FindWindow("Shell_TrayWnd", vbNullString)
SetWindowPos h, 0, 0, 0, 0, 0, SWP_SHOWWINDOW

Die API-Deklarationen in ein Modul kopieren oder aus "Public" ein "Private" machen.

Alt-F4 verhinderst du z.B. mit der Eigenschaft ControlBox = False.

Falls du noch Fragen hast, meld dich.

Viele Grüße
Andreas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]