Läuft App?

[DSEDSE]

Hallo Zusammen,

gibt es eine Funktions wo ich ermitteln kann ob bereits die App läuft?

Gruß

Ayhan

[Martin Altmann]

Iyi günler Ayhan,
suche mal nach Mutex im Forum, da findest Du diverse Lösungen - unter anderem diesen Thread: http://www.xbaseforum.de/viewtopic.php? ... 20&p=20633

Viele Grüße,
Martin

[DSEDSE]

Tessekürler Martin

[Herbert]

Mutex klappt auch unter Vista und daher wohl auch unter Windows7.
Um nicht zu lange graben zu müssen:

// Läuft das Programm schon?

Code: Alles auswählen

#define MUTEX_ALL_ACCESS  2031617
...
PROCEDURE AppSys
LOCAL cMutex:=Upper(AppName())+Chr(0)
LOCAL nH:=DllCall("KERNEL32.DLL", DLL_STDCALL,;
                  "OpenMutexA", MUTEX_ALL_ACCESS, 0, cMutex)
IF nH==0
  nH:=DllCall("KERNEL32.DLL",DLL_STDCALL,"CreateMutexA",0,0,cMutex)
ELSE
  MsgBox("Das Programm wird bereits ausgefhrt!",cMutex)
  QUIT
ENDIF
....
DllCall("KERNEL32.DLL",DLL_STDCALL,"ReleaseMutex",nH)
RETURN

[DSEDSE]

Hallo Herber,

vielen Dank!!! Es Funzt tadellos!!!


Ayhan

[Rolf Ramacher]

Hallo Herbert,

kann ich das so mit jedem Programm machen, oder ist dies nur als Beispielt für die kernel32.dll gedacht ??
Ich appname als Privat deklariert oder wo kommt der her ?

[brandelh]

Hallo Rolf,

AppName() ist eine eingebaute Xbase++ Funktion die den EXE Namen zurückgibt
Das lässt mich darauf schließen, dass man das mit jedem Xbase++ Programm machen kann,
dem man verbieten will mehrfach geöffnet zu werden. Ob das sinnvoll ist muss man aber gut überlegen