ActiveDelphi

[ajs1]

Não consigo fazer com que o Gerenciador de Tarefas do Windows seja restrito.

Alguém sabe como consigo fazer isso, iniciando a form do meu sistema?

AJS.

[johnny-walker]

Aí amigo... fresquinho do forno... ))...

procedure ONOFFTaskMgr(Habilitar: Boolean);
Var
RootKey: TRegistry;
begin
RootKey := TRegistry.Create;
RootKey.RootKey := HKEY_CURRENT_USER;
With RootKey do
begin
try
if OpenKey(\'\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\', False) then
begin
if Habilitar then
WriteInteger(\'DisableTaskMgr\',0)
else
WriteInteger(\'DisableTaskMgr\',1);
end;
finally
Free;
end;
end;
end;

PS.: divirta-se

bye...


[Editado em 3/10/2006 por johnny-walker]
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[alex10]

Só duas perguntas.

Funciona para Windows 2000 e XP ??

Como uso ??

[thomazs]

Funciona. É simples, para permitir acesso ao Gerenciador, passe o valor True para o parametro.Para impedir, passe o valor False.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[alex10]

O amigo thomazs me da uma mão para aquele filtro tbm que eu postei por favor.

[alex10]

Desculpa a burrice mas como eu uso esta procedure ?

estou tentando assim só para teste e não rola.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ONOFFTaskMgr;
end;

[thomazs]

Alex10... para usar a função é assim:

ONOFFTaskMgr(True); //Para permitiro acesso ao Gerenciador

e

ONOFFTaskMgr(False); //Para proibir

Estou no Msn agora. Me adiciona que te dou uma ajuda... marcosthomazs@hotmail.com
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[ajs1]

Valeu pela dica amigo!
Vou encorporar no meu sistema, e qualquer coisa posto auí de novo...

Falou.

[johnny-walker]

Desculpe não não ter passado como se usava, não pensei que fosse tão dificíl assim.... promento em outras vezes não esquecer amigo...

desculpe... foi a pressa, programei, testei vi que funcionou e postei assim que terminei...


bye..



_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[johnny-walker]

Muito obrigado Tomazs por ajudar ao colega... realmente foi um lapso...


bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[alex10]

Amigo thomazs já add vc no meu MSN e obrigado mais uma vez.
Posso te mandar uma menssagem sobre aquele select para ordenar por quantidade que postei outrodia ?

johnny-walker obrigado pela sua dica.

[johnny-walker]

Uma perguntinha Alex... para que vc quer impedir acesso a gerenciador de tarefas???


bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[alex10]

Fiz uma rotina de backup para rodar em vários horários do dia usando um programa meu. Mas tive problemas com 02 funcionários das filiasi que dasabilitavam isso.

Agora resolveu meu probl.

Obrigado.

[ajs1]

Valeu a dica funcionol perfeitamente.

Acho que devo explicações sobre o porquê da questão.

O meu Sistema carrega ao iniciar o Windows, finalizando o Explorer.exe.
Mas o usuário poderia ter acesso se iniciasse o Explorer pelo gerenciador, por isso precisava travar o gerenciador.

Agora está tudo perfeito.

Valeu pela dica...


AJS