Bloquear Gerenciador Tarefas e Tibia

16/06/2008

2

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


Responder

Posts

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;



Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar