OCULTAR APLICACAO

USUARIO.EXCLUIDOS 13/12/2006 10:26:08
#189652
Exite a possibilitade de ocultar uma aplicação terceira? Ex. A calculadora do windows está aberta e minha aplicação oculta-la?
USUARIO.EXCLUIDOS 13/12/2006 10:56:46
#189669 Resposta escolhida
Bom cara, não sei se teria como ocultala exatamente, mas uma passibilidade eh usar uma API para procurar a janela com a opção de FindWindow, e ver direitinho um eskema para arastas a janela para cima, fazendo assim a janela sumir do campo visivel, da um pesquisada sobre o FindWindow que vc vai conseguir...

Abraço espero ter ajudado um pouco!!!
FABIO.LOUREIRO 13/12/2006 11:03:30
#189672
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long



Private Sub Form_Load()
Dim nomes As String
Dim titulo As String

Shell "calc.exe", vbNormalFocus
nomes = Space(250)

nome = FindWindow(vbNullString, "Calculadora")
GetWindowText nome, nomes, Len(nomes)

If nome > 0 Then
    ShowWindow nome, 0 '0 para ocultar, 1 para mostrar
End If
End Sub
USUARIO.EXCLUIDOS 13/12/2006 13:53:12
#189716
Assim msm eu axo q funciona....


abaço!!!
USUARIO.EXCLUIDOS 13/12/2006 15:25:39
#189738
FABIO LOUREIRO, esse eskema ai não funcionou, tirei uma base do que vc utilizou e criei um outro, eskema, bom irei postar no site, e aki para o HNEXT, baixar se ele kiser...
LIONHEART 13/12/2006 15:35:20
#189746
Existe sim, e é bem simples

Eu fiz esse projetinho minusculo só pra tirar a porcaria do Windows Media Player da barra e mandar pro systray, que nem o WMP 10 faz.

Registre essa OCX que eu mando em anexo.
Abra o seu WMP, e execute o programa.
Depois, minimize ele.

Se vc olhar, tem uma propriedade dessa ocx que exibe ele no systray. é só comentar aquela linha, que vc faz ele desaparecer.
SPRITU 13/12/2006 17:55:20
#189811
Simples assim:

Num for Coloca um botão chamado CmdOK

e cola esse codigo

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal HwNd As Long, ByVal nCmdShow As Long) As Long
Dim MyHwNd As Long

[c]Private Sub cmdOk_Click()
Static nCmd As Integer

If MyHwNd = 0 Then
    Exit Sub
End If


With cmdOk

    Select Case nCmd
        Case 1
            nCmd = 0
            ShowWindow MyHwNd, CLng(nCmd)
            .Caption = "Mostrar"
        Case 0
            nCmd = 1
            ShowWindow MyHwNd, CLng(nCmd)
            .Caption = "Esconder"
    End Select
End With

End Sub


Private Sub Form_Load()

MyHwNd = FindWindow(vbNullString, "Calculator")

If MyHwNd = 0 Then
    MsgBox "Não foi possivel ler o Hwnd da Janela"
End If

End Sub

[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar