Results 1 to 2 of 2

Thread: Hi i really need help !!!!!!!

  1. #1

    Thread Starter
    New Member
    Join Date
    Dec 2000
    Posts
    10

    Unhappy

    Hi i really need help i need to disable any way to get out of my form like Alt Tab and Alt F4 And Ctrl Alt Delete And and any other ways can you please help me !!!!!!!


    P.S "Sorry about the last message"


    Signing off "PAL"



    Thansk for any help.

  2. #2
    Guest
    To enabled/disable the ctrl+alt+del/ctrl+tab/alt+tab/etc. etc.:

    Code:
    Private 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        
    
    Sub DisableCtrlAltDelete(bDisabled As Boolean)
        Dim X As Long
        X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
    End Sub
    
    Usage
    
    Private Sub Command1_Click()
    'To disable Ctrl-Alt-Delete:
    Call DisableCtrlAltDelete(True)        
    End Sub
    
    Private Sub Command2_Click()
    'To enable Ctrl-Alt-Delete:
    Call DisableCtrlAltDelete(False)  
    End Sub
    And in the Form_QueryUnload event, put Cancel = True.
    That should get you started.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width