Como evitar que várias instâncias de uma aplicação de VB de 32 bits

Exemplo passo a passo

1. Crie um novo projecto do Visual Basic.
2. Vá para propriedades do projecto e defina o objecto de arranque (ou formulário de arranque em VB4) seja Sub Main.
   
3. Adicione um módulo padrão ao projecto.
4. Cole o seguinte código 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 projecto para um EXE.
6. Saia do Visual Basic.
7. Execute o ficheiro executável que criou.
8. Repita o passo 7.
   
   RESULTADO: A primeira instância do programa é atribuída o foco e a segunda ocorrência é fechada. Se a primeira instância da aplicação foi minimizada, será restaurado automaticamente para uma janela normal.

Voltar ao topo