geht mittels API z.B. Die fogenden Zeilen sind aus http://www.allapi.net/ kopiert. Der Text befindet sich unter Tips&Tricks, dann Applications. Hiding Your Program in the Ctrl-Alt-Del list The easiest method is probably by using the TaskVisible property of the App-object. If you set it to False, the task will be hiden from the CTRL-ALT-DEL-list. If you set it to True, your task will reappear again. 'Hide from list App.TaskVisible = False 'Show on list App.TaskVisible = True Thanks to Fernando Robles for this tip. There is another, more complicated way to accomplish the same effect. You can register your program as a service. This is done by passing the process ID of your application to the RegisterService API. Declarations Copy the following code into the declarations section of a module: 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 Procedures To remove your program from the Ctrl+Alt+Delete list, call the MakeMeService procedure: Public Sub MakeMeService() Dim pid As Long Dim reserv As Long pid = GetCurrentProcessId() regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE) End Sub To restore your application to the Ctrl+Alt+Delete list, call the UnMakeMeService procedure: Public UnMakeMeService() Dim pid As Long Dim reserv As Long pid = GetCurrentProcessId() regserv = RegisterServiceProcess(pid, _ RSP_UNREGISTER_SERVICE) 'End Code Don't forget to unregister your application as a service before it closes to free up system resources by calling UnMakeMeService.
25.10.2000, 21:53 Uhr
, 7 mal gelesen