Application - Invisivel ao Ctrl Alt Del

*** ATENCAO: só funciona no Win9x

function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord; stdcall; external 'KERNEL32.DLL';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

  RegisterServiceProcess(GetCurrentProcessID,1); // Torna applicativo invisivel

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  RegisterServiceProcess(GetCurrentProcessID,0); // volta ao normal

end;