PREV INSTANCE

VENON 15/03/2005 09:12:14
#73027
ESTOU CONSTRUINDO UMA APLICAÇÃO QUE RODA O TEMPO TODO OCULTA EM BACKGROUND, PRECISO QUE QUANDO ALGUéM TENTAR INICIAR NOVAMENTE O APLICATIVO ELE [txt-color=#ff0000]SIMPLESMENTE TORNE VISàVEL A INSTÓ¡NCIA Jà ATIVA DO PROGRAMA[/txt-color] E NÃO PERMITA QUE ELE SEJA EXECUTADO NOVAMENTE. IF APP.PREVINSTANCE THEN ??????
FELIPEA 15/03/2005 10:29:26
#73037
Qual o titulo do seu programa?
WEBMASTER 16/03/2005 00:17:42
#73149 Resposta escolhida
Coloque isto no módulo:

Citação:


Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

sub chama_instancia_aberta(Titulo)
Dim nCodJanela As Long

nCodJanela = FindWindow(vbNullString, Titulo)

Call ShowWindow(nCodJanela, 9)

Call SetForegroundWindow(nCodJanela)

End Sub










Sub Main()

cria_objetos_globais

If App.PrevInstance Then

chama_instancia_aberta DESCRICAO_MODULO

Else

Frm_Splash.Show

End If


End Sub
VENON 30/03/2005 06:58:34
#75684
Ok, funcionou. Valeu pela dica LEOPOLDOARJ.
Tópico encerrado , respostas não são mais permitidas
Voltar