Como Evitar Que A Aplicação Seja Encerrada?

[Humm]

há alguma maneira de bloquear o fechamento da aplicacao no gerenciador de tarefas?

[Elber Carretoni]

há alguma maneira de bloquear o fechamento da aplicacao no gerenciador de tarefas?

ixi, também to correndo atrás disso...rsrs

se você descobrir, poste, por favor...

quando eu descobrir também posto aqui...

abraços,

[MrMALJ]

cole o código abaixo em um novo modulo e no evento ao carregar do seu formulário inicial coloque:Call DesativaCtrlAltDel

Public Declare Function GetCurrentProcessId _ Lib "kernel32" () As Long

Public Declare Function GetCurrentProcess _ Lib "kernel32" () As Long

Public Declare Function RegisterServiceProcess _ Lib "kernel32" (ByVal dwProcessID As Long, _ ByVal dwType As Long) As Long

Public Const RSP_SIMPLE_SERVICE = 1

Public Const RSP_UNREGISTER_SERVICE = 0

Public Sub DesativaCtrlAltDel()

Dim pid As Long, reserv As Long pid = GetCurrentProcessId() reserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

End Sub

Bom esse eu também não testei, peguei este no "Mundo Access", bom faça o teste e nos dê o retorno.

[Humm]

da um monte de erro de sintaxe nesse codigo.

[MrMALJ]

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Private Const RSP_SIMPLE_SERVICE = 1

Private Const RSP_UNREGISTER_SERVICE = 0

Public Sub DesativaCtrlAltDel()

' Rotina que deve ser chamada no formulário.

Dim pid As Long, reserv As Long

pid = GetCurrentProcessId()

reserv

end sub

[Humm]

ok.. coloquei la

Private Sub Form_Load()

Call DesativaControlAltDel

e quando abro o form, dá:

Erro de Compilação:

Era esperado variavel ou procedimento, não modulo.

e se eu colocar um nome diferente no modulo dá isso:

sub ou function não definida

hehe ta brabo

[MrMALJ]

Umm pelo que vi falta um "end sub" em DesativaCtrlAltDel(), tenta colocar e testar, nessas ultimas funções que te passei num testei nenhuma delas...rsrsrsr

[Humm]

coloquei la mas continua dando o mesmo erro..

quando puder testa esse codigo ai..

eu li um comentario a respeito dele que diz só funcionar em win95/98

porem o erro que dá me parece ser do vba.

"sub ou function não definida"

[MrMALJ]

Ummmm posivelmente possa ser isso, afinal os kernell são diferentes...