Application - Invisivel ao Ctrl Alt Del

Top  Previous  Next

*** 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;