XProfan

 $U pipe.pcu = pipe.
declare pipe&
case pipe.is("odoku") : end
pipe&:=pipe.create("odoku")
waitinput
pipe.close pipe&

PRFellow- Vorlage
Autor: Thomas Hölzer
Die Prozedur OnlyOne sorgt dafür, daß nur eine Instanz eines
Profan²- 32 Bit(!)-Programms aufgerufen werden kann.
Sie muß als erste beim Programmstart abgearbeitet werden
Am Programmende muß CloseHandle aufgerufen werden!
declare programm$, version$
programm$="ADRESSOR "
version$="1.5.0"
Globale Deklarationen
Def CreateMutex(3) !"KERNEL32","CreateMutexA"
Def GetLastError(0) !"KERNEL32","GetLastError"
Def CloseHandle(1) !"KERNEL32","CloseHandle"
Declare MutexName#,Mutex&

Proc OnlyOne

    Declare error&,name$
    Let name$=programm$  Ein beliebiger,unverwechselbarer Name
    Dim MutexName#,Add(Len(name$),1)
    String MutexName#,0=name$
    Let Mutex&=CreateMutex(0,1,Mutexname#)
    Let error&=GetLastError()
    Dispose MutexName#

    If And(Neq(Mutex&,0),Equ(error&,0))

        MessageBox("Dies ist die erste Programminstanz
        Lassen Sie zum Testen diese
        Messagebox stehen und starten Sie das Programm noch einmal!","Mutex-Test",64)

    Else

        MessageBox("Das Programm ist schon aktiv  ",programm$+version$,16)
        CloseHandle(Mutex&)
        End

    EndIf

EndProc

Beispiel
OnlyOne
Die nächste Anweisung immer ans reguläre Progammende!!!
case mutex&: CloseHandle(Mutex&) PRFellow- Vorlage
Autor: Thomas Hölzer