Как скрыть мою программу от <Crtl>+<Alt>+<Del> ?

Помогите скрыть мою программу от <Crtl>+<Alt>+<Del>. И сделать так, чтобы она запускалась автоматом при включении компьютера, но её не было в автозагрузке.

0

посмотри здесь - http://sharig.webzone.ru/category/programs/HideFrom3key.htm

0

Спасибо, только что такое General Declarations?

0

General Dec - это раздел в любом модуле, где объявляются глобальные и локальные на уровне модуля переменные, API, константы и т.д. Короче - самое начало модуля, от первой строки вплоть до серой линии.

0

А насчет Ctrl+Alt+Del - вот. Этот пример полностью запрещфет это меню:
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:

'To disable Ctrl-Alt-Delete:

Call DisableCtrlAltDelete(True)

'To enable Ctrl-Alt-Delete:

Call DisableCtrlAltDelete(False)


А этот - скрывает из него твой проект (к сожалению, не помню где взял, так что не могу поставить ссылку на авторство - заранее прошу прощения):
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

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 Declare Function GetCurrentProcess Lib 'kernel32' () As Long

Public Sub HideApp(lbValue As Boolean)

Dim lProcessID As Long
Dim lReturn As Long

lProcessID = GetCurrentProcessId()

If lbValue Then
lReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
Else
lReturn = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End If

End Sub

0