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

marco@clubedelphi.net