Ενναλακτικo Mutex

[ntaryl]

Καλησπερα

Το συγκεκριμενο παραδειγμα μετατραπηκε απο Delphi σε VB6 .

Credits to del00phi for the Delphi code

Μετατροπη απο εμενα

>
in module 
option explicit
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GlobalFindAtom Lib "kernel32.dll" Alias "GlobalFindAtomA" (ByVal lpString As String) As Integer
Private Declare Function GlobalAddAtom Lib "kernel32.dll" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
Private Declare Function GlobalDeleteAtom Lib "kernel32.dll" (ByVal Atom As Long) As Integer
Private Const PChar As String = "{7A12B344-0835-4DCC-BDA7-D8EA506CD560}"
Dim Atom As Long
Public Function Muteme()
Atom = GlobalFindAtom(PChar)
If Atom <> 0 Then
MsgBox "You are trying to open second instance of the App!" & "This instance will be closed."
ExitProcess (0)
Else
Atom = GlobalAddAtom(PChar)
End If
End Function
Public Function Unmute()
GlobalDeleteAtom (Atom)
End Function

'''on form    ////////////////////////////////////////////
Private Sub Form_Load()
Call Muteme
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call Unmute
End Sub