[Resolvido]Duvida com exemplo MinimizaSysTray

Olá!

Encontrei um exemplo que minimiza o Access no SysTray no tópico:Tópico

No meu PC este exemplo minimiza na barra de notificações e na barra de tarefas também.

Minha dúvida é se tem como minimizar somente nas notificações e ocultar da barra de tarefas. O que realmente pretendo é que o usuário do meu sistema não saiba que o sistema esta em execução, pois esse sistema é apenas um gerenciador de outro BD.

Meu S.O é W7 e Office 2010.

Desde já, obrigado!

Pessoal,

Na verdade nem seria preciso minimizar o sistema, apenas não exibir o ícone na barra de tarefas quando o mesmo for executado.

Olá!

Consegui chegar no resultado desejado da seguinte forma:

Criei um módulo conforme abaixo:

Global Const SW_HIDE = 0

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

e no evento ao abrir do formulario principal:

Call FSetAccessWindow(SW_HIDE)

Obs.: Este código eu encontrei em um exemplo que eu havia baixado do fórum a algum tempo e não me lembro o nome do programador
para atribuir os devidos créditos.