quinta-feira, 29 de abril de 2010

Programando a API do Windows

Como desabilitar o Task Manager

Se você não quer que sua aplicação seja matada pelo gerenciador de tarefas do Windows você pode desabilitá-la pelo registro.

l1 procedure TFRegistro.button1Click(Sender: TObject);
l2 var
l3 reg: TRegistry;
l4 begin
l5 reg := TRegistry.Create;
l6 reg.RootKey := HKEY_CURRENT_USER;
l7 try
l8 if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True) then
l9 reg.WriteInteger('DisableTaskMgr', 1);
l10 finally
l11 reg.CloseKey;
l12 reg.Free;
l13 end;
l14 end;

Até a próxima!