Escondendo sua aplicação da tela Fechar Programa (Ctrl+Alt+Del)
Esta dica é bem parecida com a de Desabilitar o Ctrl+Alt+Del, só que em vez de você fazer com que não apareça a tela "Fechar Programa", desta vez a tela vai aparecer, só que a sua aplicação não será mostrada na lista de programas que estão rodando. Ficando assim a sua aplicação escondida. Esta dica serve para quem precisa esconder a sua aplicação, exemplo, caso o monitor de uma rede precise de um programa para controlar os seus usuários mas não deseja que eles saibam. Este é um bom meio para resolver isto.
Começando, primeiramente abra o Delphi e crie um novo projeto. Insira nele dois componentes Tbutton. Coloque na propriedade caption do button1 o texto "Esconder" e no button2 "Aparecer". Agora iremos definir os eventos.
Antes, devemos inserir a função na sessão implementation para que ele possa ser "enchergada" em nossa aplicação, veja abaixo:
implementation
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';
{$R *.DFM}
Agora, no evento Onclick do botão Esconder insira o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,1);
end;
No evento Onclick do botão Aparecer insira o seguinte código:
procedure TForm1.Button2Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,0);
end;
Então é isso ai, salve o seu projeto e rode o programa. Clique no botão Esconder e faça o teste apertando a tecla Ctrl+Alt+Del, se tudo deu certo a sua aplicação não estará listada lá, dê cancelar e aperte o segundo botão para voltar ao normal. Espero que seja de grande utilidade esta dica.
Feito por Marco Antonio