EXECUTAR APLICATIVO 2 X

USUARIO.EXCLUIDOS 12/06/2004 23:58:08
#29374
Gostaria de saber se alguém pode me ajudar?

Como faço para quando meu aplicativo estiver sendo executado e clicar novamente nele aparecer tipo uma mensagem ou algo parecido, informando que já está sendo executado o programa.

Agradeço desde já!
CASPEREARK 13/06/2004 01:02:47
#29381 Resposta escolhida
faça o seguinte:

No formulário padrão se seu aplicativo insira:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


Depois no evento Load de seu formulário:


Private Sub Form_Load()
Dim titulo As String
Dim vhwnd As Long

If App.PrevInstance Then
  titulo = Me.Caption
  Me.Caption = ""

  vhwnd = FindWindow(vbNullString, titulo)
  Call ShowWindow(vhwnd, 9)

  Call SetForegroundWindow(vhwnd)
  End
End If

End Sub



Boa sorte!
Tópico encerrado , respostas não são mais permitidas
Voltar