Abfragen, ob Programm schon geöffnet wurde

[bobobo]

hmm .. folgendes checkt auch ein Laufen unter einem anderen UserAccount
(dafür reicht so 'n semaphore nicht ganz)
(hannich irjendwo in enne delphiforum jefunden und 'ne eck anjepaas)

Code: Alles auswählen

;folgende 2 Prozeduren entstammen dem Forum
;http://www.purebasic.fr/german/viewtopic.php?t=3928&start=0&postdays=0&postorder=asc&highlight=guid+erzeugen

 Procedure.s Uni2Ansi(*Unicode.l) 
   size.l = WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, #Null, #Null, #Null, #Null) 
   ansi.s=Space(size) 
   WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, @ansi, size, #Null, #Null) 
   ProcedureReturn ansi 
 EndProcedure

Procedure.s GUIDcreate() 
  g.GUID 
  If CoCreateGuid_(@g) = #S_OK 
    unicodeGUID$ = Space(78) 
    GUIDLen = StringFromGUID2_(g, @unicodeGUID$, Len(unicodeGUID$)) 
    ansiGUID$ = Left(Uni2Ansi(@unicodeGUID$), GUIDLen-1) 
  EndIf 
ProcedureReturn ansiGUID$ 
EndProcedure 

MMFName.s = Guidcreate() ;guiderzeugen

MMFHandle.l
LastError.w

;initialization

MMFHandle = OpenFileMapping_(#FILE_MAP_ALL_ACCESS, #False, MMFName);
LastError = GetLastError_()

If MMFHandle <> 0
  MessageRequester("ohoo","Diese Anwendung wird bereits ausgeführt.",0)
EndIf
If (MMFHandle = 0) And (LastError = #ERROR_ACCESS_DENIED)
  MessageRequester("ohooo","Diese Anwendung wird bereits unter einem anderem Benutzerkonto ausgeführt.")
EndIf

If (MMFHandle = 0) And (LastError = #ERROR_FILE_NOT_FOUND)
  MMFHandle= CreateFileMapping_($FFFFFFFF, #NUL, #PAGE_READWRITE, 0, 1, MMFName)
  MessageRequester("ahaaa","isch füül misch so jooot")
  End
EndIf

If MMFHandle <> 0
  CloseHandle_(MMFHandle)
EndIf

[Thomas]

ganz so kompliziert muss es doch garned sein ...

kann man nicht einfach abfragen, ob eine Exe mit den einem bestimmtem Pfad gerade läuft?

[FGK]

@Thomas

recht viel einfacher wirst du es leider nicht
hinbekommen. Und vor allem sollte die
Abfragerei ja auch 100% funktionieren, denn
ne halbe Sicherheit bringt überhaupt nichts.
Deine einfache Möglichkeit wäre in der Tasklist
nach deinem Programm zu suchen. Doch was
wäre wenn ich eine Instanz starte, diese mit dem
Pfad auf Existenz in der Taskliste suche, aber
bevor ich es ein zweitesmal gestartet habe in ein
andres Verzeichnis verschoben hab? Dann wird
die "Dublette" des Programms nicht gefunden,
weil ja der Pfad nun ein anderer ist.

Ich würde die vorgefertigten Lösungen von den Kollegen
nutzen auch wenns ein wenig steinig für dich sein
sollte sich da einzulesen. Aber ums ganz banal zu sagen,
was solls dich kümmern wenn die Routinen so laufen
wie du es brauchst?

Gruß FGK

[edel]

ich hab aber linux

Meine ersten Schritte mit PB und Linux ... kein Plan ob das so stimmt :

Code: Alles auswählen

Import ""
	semget(key,count,flags)	
	semctl(semid,sem_num,kommando,arg)
EndImport
 
#IPC_CREAT	= 1000
#IPC_EXCL	= 2000
#IPC_RMID	= 0
#PARM		= 666

sid = semget('MYKEY',1,#IPC_CREAT|#IPC_EXCL|#PARM)

If sid = -1
	MessageRequester("Fehler","Programm laeuft bereits")
	End
EndIf 

OpenWindow(0, 0, 0, 300,300, "Test") 

Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

semctl(sid,0,#IPC_RMID,0)

[bobobo]

und ich kanns nicht testen (ich hab da oben nämlich aus taktischen
gründen gelogen )

[edel]

*zensiert*

Naja, immerhin weiss ich jetzt das Microsofts Produkte
besser dokumentiert sind ...

[LoD]

Ich habe heut angefangen mit PureBasic zu programmieren (davor hab ich mich mit BlitzBasic herumgeschlagen) und hab jetzt ein Problem mit bobobos Lösungsvorschlag.
Die beiden Prozeduren wollen nicht funktionieren, da mein PB 'WideCharToMultiByte_' und die anderen Befehle mit dem '_' am Ende nicht kennt.

Ich vermute dafür brauch ich irgendeine dll..? Oder funktioniert das in der Demo-Version einfach nicht?

Auf jeden Fall wäre ich über Hilfe sehr dankbar, auch wenn der Thread scho a weng älter ist.

Lg LoD

[Little John]

Oder funktioniert das in der Demo-Version einfach nicht?

So isses. Die API-Befehle ("_" am Ende) funktionieren nur in der Vollversion -- die sehr preiswert ist.

Gruß, Little John

[saimen]

bei mir hat das Script von bobobo leider nicht funktioniert. Konnte mein programm zweimal starten.

Gibts noch eine Möglichkeit?

[Bisonte]

Die PBOSL stellt die ProcessLib zur verfügung, womit man relativ einfach feststellen kann, ob ein Programm gerade in der laufenden Taskliste vorhanden ist (Taskmanager) ...

So wie FGK schon sagte : Besser in der Taskliste (Speicher) nachschauen, ob ein Programm gestartet wurde. Wenn ich das PRG einmal auf C: und einmal auf D: habe, krieg ichs dann auch zweimal gestartet