2002VB Miscellaneous #17756

Hide your program in the Ctrl-Alt-Delete Dialog!

Neo

★★★★★

4.8 · التحميلات: 2,341

Always wanted to hide your program in Ctrl-Alt-Delete Dialog box, So people dont close it from there when you dont want them to....Well use this code and your problems will be solved...They cannot close your program unless you let them through yours...MUST HAVE!!!!

ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

كود المصدر

' ----Api Declares for this code
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
' ----Public Declares for this code
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

' ----What makes it invisible/visible in Ctrl-alt-delete
' Note: That if you run this program from your development 
'    enviorment(VB) you will not see your development 
'    enviorment(VB) or your programs name in the 
'    Ctrl-Alt-Delete Dialog. 
'    From AciD email Me at Buckwheat9@juno.com
Public Sub Hide_Program_In_CTRL_ALT_Delete()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub Show_Program_In_CTRL_ALT_DELETE()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub

التعليقات الأصلية (3)

مسترجع من Wayback Machine