Mencegah Aplikasi Berjalan Dua Kali

Gimana ya supaya program kita nggak double load process. alias nggak berjalan 2 kali.
Maksudnya gini, sewaktu sobat menjalankan program sobat, terus kamu coba untuk jalankan kembali maka process yang berjalan jadi 2 padahal program yang mau digunakan cuma 1.

Di bawah ini merupakan prosedure VB6 mengenai cara mencegah aplikasi dijalankan dua kali. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini tulislah kode berikut ini pada sebuah modul :

Option Explicit

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

Declare Function OpenIcon Lib "user32" (ByVal hWnd As Long) 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

Public Const GW_HWNDPREV = 3

Sub ActivatePrevInstance()
    Dim AppTitle As String
    Dim PrevHndl As Long
    Dim result As Long

    AppTitle = App.title
    App.title = "unwanted instance"
    
    If PrevHndl = 0 Then
        PrevHndl = FindWindow("ThunderRT6Main", AppTitle)
        If PrevHndl <> 0 Then
                PrevHndl = GetWindow(PrevHndl, GW_HWNDPREV)
                result = OpenIcon(PrevHndl)
                result = SetForegroundWindow(PrevHndl)
                End
        End If
    End If
End Sub

Contoh penggunaan prosedure VB6 di atas adalah sebagai berikut ini :

Private Sub Form_Load()
    If App.PrevInstance Then ActivatePrevInstance
End Sub

Jika ada yang kurang jelas silahkan kasih komentar. Jika anda menginginkan contoh source code Mencegah Aplikasi Berjalan Dua(2) Kali silahkan download di link di bawah ini

• LINK 1 DOWNLOAD
• LINK 2 DOWNLOAD

Tags:
Cara mencegah aplikasi run 2x, contoh vb6 , tutorial vb6, contoh menggunakan PrevInstance, PrevInstance di vb6, cara memblok aplikasi jalan dua kali, PrevInstance adalah , fungsi PrevInstance mencegah aplikasi running twice dua kali 2x,mencegah aplikasi dijalankan dua kal,Mencegah Program Dijalankan Dua Kali