DESABILITAR CTRL ALT DEL NO XP

USUARIO.EXCLUIDOS 11/05/2004 01:45:25
#24002 Resposta escolhida

Aconteceu o mesmo comigo,mas vou quebrar o galho ai de vcs...
Fiz umas modificaçoes e fucionou perfeitamente.

'DESABILITAR CTRL ALT DEL NO XP

'Adciona o timer no form

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long




Private Sub Form_Load()
Timer1.Interval = 1
End Sub

'na propiedade do timer em interval coloca 1 seu cavalo
Private Sub Timer1_Timer()
Dim x As Long
x = FindWindow("#32770", vbNullString)
Do
DoEvents
x = FindWindow("#32770", vbNullString)
Call ShowWindow(x, SW_HIDE)
Loop Until x 0
DisableAltCtrlDel = x

End Sub

'se fucionar encerra o topico.
'topico encerrado sinal de resposta adquirida...

USUARIO.EXCLUIDOS 12/05/2004 15:57:03
#24327

DESCULPAS AH TODOS...
tinha 1 pequeno erro ai,foi mau,mas agora ta certinho...

'Adciona 1 timer no form e coloca esse codigo.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long


Private Sub Form_Load()
Timer1.Interval = 1
End Sub


Private Sub Timer1_Timer()
Dim x As Long
x = FindWindow("#32770", vbNullString)
Do
DoEvents
x = FindWindow("#32770", vbNullString)
Call ShowWindow(x, SW_HIDE)
Loop Until x 0
DisableAltCtrlDel = x

End Sub

USUARIO.EXCLUIDOS 12/05/2004 16:11:40
#24331

Gente descobrir o probleminha...
Pensei q o erro tivesse sido meu,mas o problama ta quando postamos a resposta aki no topico,ele esconde o sinal de maior e menor " "
Separei o sinal pra ver se aparece normal...

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long


Private Sub Form_Load()
Timer1.Interval = 1
End Sub


Private Sub Timer1_Timer()
Dim x As Long
x = FindWindow("#32770", vbNullString)
Do
DoEvents
x = FindWindow("#32770", vbNullString)
Call ShowWindow(x, SW_HIDE)
Loop Until x 0
DisableAltCtrlDel = x

End Sub

USUARIO.EXCLUIDOS 12/05/2004 16:12:32
#24332

Gente nao adiantou,deixa eu eu ver aki o q eu faço...

USUARIO.EXCLUIDOS 12/05/2004 16:17:41
#24335

Fiz uma mudança e agora coloca la q fuciona com certeza.

'Coloca 1 timer no form e adciona esse codigo ai:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long


Private Sub Form_Load()
Timer1.Interval = 1
End Sub


Private Sub Timer1_Timer()
Dim x As Long
x = FindWindow("#32770", vbNullString)
Do
DoEvents
x = FindWindow("#32770", vbNullString)
Call ShowWindow(x, SW_HIDE)
Loop Until x = 0
DisableAltCtrlDel = x

End Sub

USUARIO.EXCLUIDOS 13/05/2004 05:29:16
#24420

Desculpe esse ai eu testei no vb 6 e fuciona perfeitamente...