Убрать программу из списка Ctrl+Alt+Delete

Delphi , ОС и Железо , Клавиши

Конечно, отключить 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;

Убрать программу из списка Ctrl+Alt+Delete можно с помощью функции RegisterServiceProcess в Delphi, которая позволяет регистрировать и.unregister-рывать процесс в системе.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Клавиши ::