Boa tarde

 

Alguem sabe uma função para habilitar e desabilitar o acesso ao Gerenciador de Tarefas em máquinas com Windows XP Pro ???

 

Baixei uma função aqui do site mas só funciona em Windows 9x ......

 

Se alguem puder me ajudar eu agradeço....

 

Sergio

tenta com esse código que bloqueia a´plicativos através do nome da barra de título

use-o em um timer

 

Private Sub Timer1_timer()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Gerenciador de tarefas do windows") 'Titulo do arquivo
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
Form1.Show
msg = "Você não pode iniciar o Gerenciador de tarefas!"
MsgBox msg, vbExclamation + vbOKOnly, "Camaleão"
If RetVal = 0 Then
End If
Else
End If
End Sub

Valew!qualquer coisa é só postar

A idéia parece ser boa, mas como uso a função FindWindow e PostMessage... Como devo declarar essas funções e onde ???

foi mal velho, você deve declara-las no módulo elas estão abaixo é só copiar e colar no módulo;

 

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

 

foi mal falow!!

Obrigado pela ajuda CØwboy .....

 

O Sistema está funcionando a todo vapor.