'Author: Anonymous
'Author's email:
'Date Submitted: 1/11/1999
'Compatibility: VB 6,VB 5,VB 4/32
'Task: Remove application from CTRL-ALT-DEL list
'Declarations
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal
dwProcessID As Long, ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
'Code:
'To remove your program from the Ctrl+Alt+Delete list, call the
MakeMeService procedure:
Public Sub RemoveProgramFromList()
Dim lngProcessID As Long
Dim lngReturn As Long
lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
'To restore your application to the Ctrl+Alt+Delete list, call the
UnMakeMeService procedure:
Public Sub AddProgramToList()
Dim lngProcessID As Long
Dim lngReturn As Long
lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
----------------------------------------------------------------------------
--
http://webtime.adr.dk
----------------------------------------------------------------------------
--
"Spacemann" <spacemann@paradis.dk> skrev i en meddelelse
news:3bdbe57e$0$724$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Hvordan laver man et program som er umuligt at lukke - eller bare ikke med
> Alt+F4. Med CTRL+ALT+DEL må man godt, så hvis man bare kan disable ALT+F4,
> har prøvet at sige når der trykkes på alt, skal den ikke reagere, men det
> gik ikke så godt !!
>
>