Ocultar um aplicativo delphi dos processos do windows

26/01/2006

Tem como fazer com que meu aplicativo não apareça na lista dos processos do Windows, ou fazer com que o usuário não possa matar o mesmo???


Merli

Respostas

26/01/2006

Lindomar.des

Merli,

Vc pode tentar esse codigo retirado do arquivo de dicas e truques
800 Dicas de Programação Delphi, para ver se é o q procura.

079 - Escondendo o Programa de Ctrl+Alt+Del
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
{Para ocultar um programa, deve-se registrar este como um serviço do Windows. Normalmente um serviço do Windows é ativado quando com a inicialização do sistema (Windows) e pemanece ativo até a finalização deste. Este processo esconde o programa da lista ´Ctrl+Alt+Del´}
Const
Servico_Simples = 1;
Servico_Unregister = 1;

Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External ´KERNEL32.dll´;


procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, Servico_Simples);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister);
end;
end.


Responder Citar