Lá em cima trabalhaste com o ShellExecute. Eu apenas pus blablabla porque devia estar com pressa :x peço desculpa.
Portanto,
hWnd = ShellExecute(Me.hwnd, "open", "wmplayer", vbNullString, vbNullString, 0)
Isto abre o programa "wmplayer" - Windows Media Player.
Noutro local (até pode ser dentro dum timer), fazes
SetActiveWindow hWnd '< Isto traz a janela em hWnd (neste caso, o programa que abriste) para o topo (passa a ser a janela actual)
SendKeys "%{F4}" '< Isto faz Alt+F4 e termina o programa.
Não ponhas as três linhas juntas, senão abres e fechas um programa muito rapidamente. Faz, por exemplo, um Form novo, com um botão para abrir um novo programa, e um botão para terminar o programa aberto.
Não te esqueças que tens, neste caso, de declarar hWnd como Private na parte Declarations
Relembro que isto é um workaround. Há formas melhores de fazer. O problema está em eu não ser nenhum profissional.
Se precisares, eu faço-te o código. No entanto, prefiro que o tentes fazer tu mesmo
Cumps [[[[[[[[]]]]]]]]
angelofwisdom
Portanto,
hWnd = ShellExecute(Me.hwnd, "open", "wmplayer", vbNullString, vbNullString, 0)
Isto abre o programa "wmplayer" - Windows Media Player.
Noutro local (até pode ser dentro dum timer), fazes
SetActiveWindow hWnd '< Isto traz a janela em hWnd (neste caso, o programa que abriste) para o topo (passa a ser a janela actual)
SendKeys "%{F4}" '< Isto faz Alt+F4 e termina o programa.
Não ponhas as três linhas juntas, senão abres e fechas um programa muito rapidamente. Faz, por exemplo, um Form novo, com um botão para abrir um novo programa, e um botão para terminar o programa aberto.
Não te esqueças que tens, neste caso, de declarar hWnd como Private na parte Declarations
Relembro que isto é um workaround. Há formas melhores de fazer. O problema está em eu não ser nenhum profissional.
Se precisares, eu faço-te o código. No entanto, prefiro que o tentes fazer tu mesmo
Cumps [[[[[[[[]]]]]]]]
angelofwisdom
