PureBasic

Code : Tout sélectionner

#MyApp="Your message"
Mutex=CreateMutex_(0,1,#MyApp)
If GetLastError_()=#ERROR_ALREADY_EXISTS
  MessageRequester(#MyApp,"Une seule instance peut être exécutée",#PB_MessageRequester_Error)
  End
EndIf

; your main code

#MAIN_FORM = 0
OpenWindow(#MAIN_FORM,0,0,800,600,"Hello world",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)

Repeat
  WaitWindowEvent()
Until Event() = #PB_Event_CloseWindow 

; don't forget to unlock the mutex
ReleaseMutex_(Mutex)
End

Code : Tout sélectionner

; Code créer par microdevweb le: 24/Fév/2020.
; Code revue et corrigé par Dieppedalle David le: 24/Fév/2020.

#MyApp = "Chaîne"
Mutex = CreateMutex_(0, 1, #MyApp)

If GetLastError_() = #ERROR_ALREADY_EXISTS
  MessageRequester(#MyApp, "ATTENTION: Une seule instance peut être exécutée à la fois sur cette machine !", #PB_MessageRequester_Error)
  End
EndIf

If OpenWindow(0, 100, 200, 400, 300, "Ma fenêtre", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

  Repeat
    
    Event = WaitWindowEvent(1)

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

ReleaseMutex_(Mutex)