Amigo CFGONSALVES, como vai ? tudo bem ?
Abaixo encontra-se o código correto para desabilizar o Gerenciador de Tarefas do Windows XP
'Adicione 2 CommandButton em seu Projeto
Dim blockTaskMgrFile As Integer
Private Sub Command1_Click()
blockCAD
End Sub
Private Sub Command2_Click()
unBlockCAD
End Sub
Private Function blockCAD()
'Trava o Gerenciador de Tarefas
If blockTaskMgrFile = 0 Then blockTaskMgrFile = FreeFile: Open "C:/WINDOWS/system32/taskmgr.exe" For Input Lock Read As #blockTaskMgrFile
End Function
Private Function unBlockCAD()
'Destrava o Gerenciador de Tarefas
If blockTaskMgrFile <> 0 Then Close #blockTaskMgrFile: blockTaskMgrFile = 0
End Function
Caso tiver problemas com o código avise-me e eu lhe enviarei o projeto pronto para o seu uso por e-mail.
Abraços,
Marcus Vinícius
EDITADO:
Não sabia que sua dúvida havia sido SANADA,
Minhas desculpas, mas por favor feche o tópico ok ? obrigado.
