Конечно, отключить Ctrl+Alt+Del - это круто, но пользователь сразу догадается, что кто-то у него побывал в гостях с нечистыми намерениями, а если вы хотите всё делать "под покровом темноты", то наилучший способ просто убрать прогу из списка
Например, по созданию окна. Для этого до слова implementation вписываем следующую функцию:
function RegisterServiceProcess(dwProcessID, dwType: integer): integer; stdcall; external 'KERNEL32.DLL';
А на создание окна код будет выглядеть так:
procedure TForm1.FormCreate(Sender: TObject); begin if not(csDesigning in ComponentState) then RegisterServiceProcess(GetCurrentProcessID, 1); end;
Ну вот и всё, а если вам понадобится сделать прогу видимой, тогда сделаем это так:
procedure TForm1.Button1Click(Sender: TObject); begin if not(csDesigning in ComponentState) then RegisterServiceProcess(GetCurrentProcessID, 0); end;