Aktuelle Zeit: 20.08.2019 18:06

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: CountExeRunning()
BeitragVerfasst: 02.01.2019 16:28 
Offline

Registriert: 29.08.2004 13:18
Der Code ist dafür da, um rauszufinden, ob das Programm schon mal läuft. Ist recht simpel gehalten, es wird nur nach den EXE-Namen gesucht, ob er vorhanden ist.

ACHTUNG, auf die eigene EXE gibt das Ding natürlich die Zahl 1 aus - die eigene Instanz zählt er mit! Man muss also auf CountExeRunning()>1 testen - dann läuft die exe bereits.


Code:
Procedure CountExeRunning(ProcessName.s="")
  Protected hSnapShot,iResult,pInfo.PROCESSENTRY32,bProcAvailable
  If ProcessName=""
    ProcessName=GetFilePart(ProgramFilename())
  EndIf
 
  hSnapShot = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS,#Null)
  If hSnapShot
    pInfo\dwsize    = SizeOf(PROCESSENTRY32)
    bProcAvailable  = Process32First_(hSnapShot, @pInfo)
    If bProcAvailable
      Repeat
        If PeekS(@pInfo\szExeFile,260)= ProcessName
          Debug PeekS(@pInfo\szExeFile,260)+" = "+ ProcessName
          iresult+1
        EndIf
        bProcAvailable = Process32Next_(hSnapShot, @pInfo)
      Until Not bProcAvailable
    EndIf 
   
    CloseHandle_(hSnapShot)
   
    ProcedureReturn iResult
   
  EndIf
EndProcedure

_________________
CodeArchiv Rebirth: Deutsches Forum Github Hilfe ist immer gern gesehen!


Zuletzt geändert von GPI am 02.01.2019 18:27, insgesamt 1-mal geändert.

Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: CountExeRunning()
BeitragVerfasst: 02.01.2019 17:06 
Offline
Benutzeravatar

Registriert: 25.09.2016 01:42
I would add a check for #INVALID_HANDLE_VALUE.

_________________

Links:
PureBasic Discord
[ENGINE] 2D Engine Nautilus (Win)
[INCLUDE] GLFW 3.3 Library
[MODULE] Bass Library 2.4 (Win)
[LIBRARY] Hexi Binary2Hex (Win)



Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: CountExeRunning()
BeitragVerfasst: 02.01.2019 21:27 
Offline
Admin
Benutzeravatar

Registriert: 05.10.2006 18:55
Wohnort: Deutschland::Berlin()
:allright:

_________________
BildBildBildBild(Update: 17.08.2019 (+196 Dateien, +1392 MB)) BildBild


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye