Como evitar que várias instâncias de um aplicativo VB de 32 bits

Exemplo passo a passo

1. Crie um novo projeto Visual Basic.
2. Vá para propriedades e defina o Startup Object (ou Startup Form na VB4) ser Sub Main.
   
3. Adicione um módulo padrão para o projeto.
4. Cole o código a seguir no módulo:
   

         Option Explicit
   
         Public Const GW_HWNDPREV = 3
   
         Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
         Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
           (ByVal lpClassName As String, ByVal lpWindowName As String) _
            As Long
         Declare Function GetWindow Lib "user32" _
           (ByVal hwnd As Long, ByVal wCmd As Long) As Long
         Declare Function SetForegroundWindow Lib "user32" _
           (ByVal hwnd As Long) As Long
   
         Private Sub Form_Load()
               If App.PrevInstance Then
                  ActivatePrevInstance
               End If
            End Sub
   
         Sub ActivatePrevInstance()
            Dim OldTitle As String
            Dim PrevHndl As Long
            Dim result As Long
   
            'Save the title of the application.
            OldTitle = App.Title
   
            'Rename the title of this application so FindWindow
            'will not find this application instance.
            App.Title = "unwanted instance"
   
            'Attempt to get window handle using VB4 class name.
            PrevHndl = FindWindow("ThunderRTMain", OldTitle)
   
            'Check for no success.
            If PrevHndl = 0 Then
               'Attempt to get window handle using VB5 class name.
               PrevHndl = FindWindow("ThunderRT5Main", OldTitle)
            End If
   
            'Check if found
            If PrevHndl = 0 Then
            'Attempt to get window handle using VB6 class name
            PrevHndl = FindWindow("ThunderRT6Main", OldTitle)
            End If
   
            'Check if found
            If PrevHndl = 0 Then
               'No previous instance found.
               Exit Sub
            End If
   
            'Get handle to previous window.
            PrevHndl = GetWindow(PrevHndl, GW_HWNDPREV)
   
            'Restore the program.
            result = OpenIcon(PrevHndl)
   
            'Activate the application.
            result = SetForegroundWindow(PrevHndl)
   
            'End the application.
            Unload Me
         End Sub
   
   						

5. Compile o projeto em um EXE.
6. Saia do Visual Basic.
7. Execute o executável que você criou.
8. Repita a etapa 7.
   
   RESULTADO: A primeira instância do programa recebe foco e a segunda instância é fechada. Se a primeira instância do aplicativo foi minimizada, ele será restaurado para uma janela normal automaticamente.

Voltar para o início