Bloquear Gerenciador Tarefas e Tibia

Question

preciso criar um programa para bloquear o gerenciador tarefas do xp e bloquear programa como o

Vitor Alcantara · Answer

Para bloquear o gerenciador de tarefas no XP voc� pode fazelo via registro.
A chave � a seguinte : [HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System]
E o campo que valor que deve ser alterado � o seguinte: DisableTaskMgr.

Ex:

function DesabilitaCTLRALTDEL(Ativo:Boolean);
var
  r:tRegistry;
begin
  Try
    r := tRegistry.Create;
    r.rootkey := HKEY_CURRENT_USER;
    r.OpenKey(�\Software\Microsoft\Windows\CurrentVersion\Policies\System\�,True);
    r.WriteBool(�DisableTaskMgr�,Ativo);
    r.CloseKey;
  finally
    r.Free;
  end;
end;

Pra utilizar :

DesabilitaCTLRALTDEL(True);//Pra desabilitar
DesabilitaCTLRALTDEL(False);//Para ativar

Quanto ao Tibia voc� pode utilizar a API do windows, que permite fazer comunica��o entre aplica��es diferentes.

Ex:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  hnd:THandle;
begin
  hnd := findwindow(nil,�Titulo da janela do tibia�);//Aqui voc� pode pegar o handle da janela pelo seu titulo por exemplo
  if hnd > 0 then //Verifica se a janela est� aberta
  begin
    PostMessage(hnd,WM_QUIT,0,0) ;//Envia a mensagem pra fechar o programa.
  end;
end;