Aplikasi Sekali Jalan

Terkadang programmer ingin membuat aplikasi yang hanya boleh dijalankan atau dieksekusi sekali saja, sehingga tidak terjadi duplikasi aplikasi. Tentunya jika aplikasi dijalankan lebih dari sekali akan beresiko, apalagi kalau aplikasi tersebut merupakan aplikasi pengolah file atau database.

[ VB 6.0 ]
Buat Module baru dan ketikkan :

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

Sub ShowPrevInstance()
Dim OldTitle As String
Dim l As Long 'window handle

OldTitle = App.Title
App.Title = "This App Will Be Closed"

l = FindWindow("ThunderRT6Main", OldTitle)
If l = 0 Then Exit Sub
l = GetWindow(l, 3)

OpenIcon (l)
SetForegroundWindow (l)

End
End Sub

Dan di Form awal di bagian 'Form_Load' ketikkan :

If App.PrevInstance = True Then 'jika sudah
ShowPrevInstance 'memfokuskan ke aplikasi sebelumnya
End If

[ VB .NET ]
Langkah ini diterapkan pada VS 2005 :
Dobel klik item 'My project' pada jendela Solution Explorer, dan berikan tanda centang pada pilihan 'Make single instance application'.