|
Usuários |
|
24 Usuários Online
|
|
[Dicas]
Desabilitando Gerenciador de Tarefas no Windows 7 |
Publicado por FabioZumbi12 : Quinta, Dezembro 13, 2012 - 07:54 GMT-3 (619 leituras)
 2 Comentários  Enviar para um amigo  Versão para impressão
|
O código abaixo foi testado e funcionou com o Windows 7. Tenha declarado em Uses: Registry
function BlockInput(ABlockInput: boolean): Boolean; stdcall; external 'USER32.DLL';
procedure TravaGT(SimNao: boolean);
var
reg: TRegistry;
begin
try
reg := TRegistry.Create;
with reg do begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true); //se não existir, é criada
case SimNao of
true: WriteInteger('DisableTaskMgr',1);
false: WriteInteger('DisableTaskMgr',0) ;
end;
closeKey;
end;
finally
reg.free;
end;
end;
Utilização:
procedure TForm1.Button1Click(Sender: TObject);
begin
BlockInput(true); //bloqueia teclado e mouse
TravaGT(true); //bloqueia Gerenciador de Tarefas
Sleep(5000);
BlockInput(false); // desbloqueia teclado e mouse
TravaGT(false); //desbloqueia Gerenciador de Tarefas
end;
Simples e funcional!
|
|
 Comentários | |
| | Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos. |
|
|
Edição 112 |
|
|
50 Programas Fontes |
|
|
Produtos |
|
|
