PureBasic

Code : Tout sélectionner

;Autor: ts-soft

EnableExplicit

Procedure CheckRunningPureBasic(Name.s)
  Protected result.l, Snapshot.l, ProcessFound.l, PN$, Process.PROCESSENTRY32
  Process\dwSize = SizeOf(PROCESSENTRY32)
  Snapshot = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS, 0)
  If Snapshot
    ProcessFound = Process32First_(Snapshot, Process)
    While ProcessFound
      PN$ = UCase(PeekS(@Process\szExeFile, #PB_Any, #PB_Ascii))
      If UCase(Name) = GetFilePart(PN$) : result = #True : Break : EndIf
      ProcessFound = Process32Next_(Snapshot, Process)
    Wend
    CloseHandle_(Snapshot)
  EndIf
  ProcedureReturn result
EndProcedure

If CheckRunningPureBasic("PureBasic.exe")
  MessageRequester("","Programme est en cours d'exécution.",0)
Else
  MessageRequester("","Rien lancé.",0)
EndIf

Code : Tout sélectionner

; Vérification de la présence d'un programme en mémoire 
; Marc56 - 24/10/19 - PureBasic toutes versions - Windows >= 2000
; Utilisation de la commande Windows tasklist.exe

; Ligne de commande qui est envoyée:
; tasklist /FI "IMAGENAME eq PureBasic.exe"
; tasklist /? pour voir les autres possibilités

EnableExplicit

Define MyProgram$ = "PureBasic.exe"

Define Parameter$ = "/FI "+ Chr(34) + "IMAGENAME eq " + MyProgram$ + Chr(34) + " /NH"
Debug Parameter$

Define Run = RunProgram("tasklist", Parameter$, "", #PB_Program_Open | #PB_Program_Read)

If Run 
    Define Line$, Running$
    Debug "-----------------------------------"
    While ProgramRunning(Run) 
        If AvailableProgramOutput(Run)
            Define Line$ = ReadProgramString(Run)
            Debug Line$
            Running$ + Line$
        EndIf   
    Wend
    Debug "-----------------------------------"
    CloseProgram(Run)
Else  
    Running$ = "Rien"
EndIf

If StringField(Running$, 1, " ") = MyProgram$
    MessageRequester("Désolé.", 
                     MyProgram$ + " est déjà en fonctionnement.", 
                     #PB_MessageRequester_Warning)
Else
    MessageRequester("Information", 
                     "OK, la place est libre", 
                     #PB_MessageRequester_Info)  
EndIf

End

Code : Tout sélectionner

; Code de Nico  :o)
; verifie si le prg en cours est deja lancé
; Lancez ce code 2 fois
; vous verrez que la deuxieme fois il est fermé

Declare deja_lance(Application.s)
Application.s= "Mon application" ; nom de l'application a empecher de se lancer 2 fois



;Le Programme de test :
deja_lance(Application.s) ; on test si le prg est deja lancé
If OpenWindow (0, 431, 186, 325, 214, Application,#PB_Window_SystemMenu) ; ici on a bien mis le meme NOM c'est important !!
		Repeat
				Event= WaitWindowEvent ()
		Until Event = #PB_Event_CloseWindow
EndIf

CloseHandle_(Hmutex)
End




; **************** Procedure Zone ***************************
Procedure deja_lance(Application.s)
		#MUTEX_ALL_ACCESS = $1F0001
		Hmutex = OpenMutex_( #MUTEX_ALL_ACCESS , #False ,Application)		
		If Hmutex=0			
				Hmutex = CreateMutex_( #Null , #True , Application)
				If Hmutex=0					
						End
				EndIf
		Else			
				Handle= FindWindow_( #Null , Application)
				ShowWindow_(Handle, #SW_HIDE )
				ShowWindow_(Handle, #SW_MINIMIZE )
				ShowWindow_(Handle, #SW_RESTORE )
				End
		EndIf
EndProcedure

Code : Tout sélectionner

; Basé sur un code de netmaestro
; http://forums.purebasic.com/english/viewtopic.php?p=95061#p95061

*a = CreateSemaphore_(null,0,1,"PreviewModeSemaphore")
If *a <> 0 And GetLastError_()= #ERROR_ALREADY_EXISTS
    MessageRequester("Erreur", "Le programme est déjà lancé")
;     CloseHandle_(*a)
;     End
Else
    MessageRequester("", "Running...")
EndIf

Code : Tout sélectionner

EnableExplicit

OnErrorGoto(?ErrorHandler)

Global Mutex

#appname = "Mon application"
#runonce = #True    ; une seule instance autorisée.

;;; https://msdn.microsoft.com/en-us/library/windows/desktop/cc144179%28v=vs.85%29.aspx
Global TB_Message = RegisterWindowMessage_("TaskbarCreated")


CompilerIf #PB_Compiler_Debugger      ; choisir une valeur pour Mutex
  ;; On est dans l'IDE
  ;; Valeur utilisée uniquement dans l'IDE
  ;; Utilisez une valeur inférieure a 1000 (mille).
  #winMain = 999
CompilerElse
  ;; L'application est compilée.
  ;; Valeur utilisée par Mutex si besoin.
  ;; Utiliser une valeur unique par application.
  ;; Valeur du Mutex = "WindowClass_1111"
  #winMain = 1111
CompilerEndIf

CompilerIf #PB_Compiler_Debugger
  ;; On est dans l'IDE
CompilerElse
  ;; L'application est compilée.
  If TB_Message
    Mutex = CreateMutex_(#Null, #False, #appname)
    If GetLastError_() = #ERROR_ALREADY_EXISTS And #runonce ; une seule instance autorisée
      ;;;
      ;;; Same Mutex in memory, that same app is running ???
      ;;; 
      Define hWnd = FindWindow_("WindowClass_"+Str(#winMain), #NUL)
      If hWnd
        ;;;
        ;;; Same Mutex in memory and same ClassName, no doubt, is the same app.
        ;;;
        SendMessage_(hWnd,#WM_SYSCOMMAND, #SC_RESTORE,0)
        SetForegroundWindow_(hWnd)
        End
      Else
        ;;;
      EndIf
    EndIf
  Else
    ;; Desktop is not activated, then no TaskBar (TB)
    End
  EndIf
CompilerEndIf

; Form
ExamineDesktops()
#appWidth  = 550
#appHeight = 170
Define X = (DesktopWidth(0)-#appWidth)/2
Define Y = (DesktopHeight(0)-#appHeight)/2

Define Flags = #PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget

If OpenWindow(#winMain, X, Y, #appWidth, #appHeight, #appname, Flags)
  Define Event, indexMenu, indexGadget, indexGadgetType
  Repeat
    Event = WaitWindowEvent(20)
    Select Event
      Case #PB_Event_CloseWindow
        Break
    EndSelect
  ForEver
EndIf

ErrorHandler:
  
Define lHwd = FindWindow_("Progman", #NUL)
ShowWindow_(lHwd, 8)
ReleaseMutex_(Mutex)
End