Tipp 10.9 - Tastenkombinationen sperren

Wie kann ich die Tastenkombinationen Alt+F4 Strg+Alt+Entf Alt+Tab sperren?

Mit dieser Funktion können Sie die Tastenkombinationen Alt+F4 Strg+Alt+Entf Alt+Tab sperren. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: SystemParametersInfo

Beispiel:

Option Explicit
 
Declare Function SystemParametersInfo Lib "user32" Alias _
                "SystemParametersInfoA" _
                (ByVal uAction As Long, _
                 ByVal uParam As Long, _
                 lpvParam As Any, _
                 ByVal fuWinIni As Long) As Long
 
Const SPI_SCREENSAVERRUNNING = 97&
 
'// --------------------------------------------------------
'// Beispielaufruf in einer Form im Load/Unload-Ereignis:
'// --------------------------------------------------------
 
Private Sub Form_Load()
'// Ctr+Alt+Del sowie Alt+Tab ausschalten (Nur Win9x!)
    Dim lRes    As Long
    Dim blnOld  As Boolean
    lRes = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                                True, _
                                blnOld, _
                                0&)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'// Ctr+Alt+Del sowie Alt+Tab wieder einschalten (Nur Win9x)
    Dim lRes    As Long
    Dim blnOld  As Boolean
    lRes = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                                False, _
                                blnOld, _
                                0&)
End Sub


Zurück Tipp 10.8 - Ist Array dimensioniert | Inhalt | Tipp 10.10 - BorderStyle ändern Weiter