XProfan

!
Keywords: mehrere Programmaufrufe/mehrere Instanzen/Mehrfachaufruf blocken/verhindern
Def $AppTitle "Mein Programmtitel"
Declare WindowHandle&
Window 100,100 - %Maxx-300,%Maxy-300
an dieser Stelle sollte noch kein Titel
definiert sein, sonst gehts schief
WindowHandle& = FindWindow($AppTitle)

if WindowHandle& <> 0

    print "Huch, ich bin ja schon da."
    print "Nach Tastendruck wird auf die 1. Instanz umgeschaltet."
    waitinput
    ShowWindow(WindowHandle&, 1)  evtl. verstecktes Fenster wieder aktivieren
    SetWindowPos WindowHandle& = 100,100 - %Maxx-300,%Maxy-300; 0  in den Vordergrund holen
    end  ...und die 2. Instanz beenden

else

    print "Ich bin einmalig."

endif

erst nach der Abprüfung wird der Fenstertitel gesetzt.
WindowTitle $AppTitle
waitkey
end

Def CreateMutex(3) !"KERNEL32","CreateMutexA"
def GetLastError(0) !"KERNEL32.dll","GetLastError"

proc check_doppelstart    return ist 0 wenn doppelstart vorliegt

    Parameters name$           Mutexname
    declare mutex&,error&
    name$  = translate$(name$ ,"\","/")   hab ich irgendwo gelesen, daß / verboten sind
    mutex& = CreateMutex(0,1,addr(name$))
    error& = GetLastError()
    print error&

    if error& = 183

        return 0

    endif

    return 1

endproc

print check_doppelstart("test")
print check_doppelstart("test")
print check_doppelstart("c:\testAaaaaaaaaaaaaaaaaa")
print check_doppelstart("c:\testAaaaaaaaaaaaaaaaaa")
waitinput

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

!
 $H Messages.ph
 $H Windows.ph
declare MapHandle&,ViewHandle&
MapHandle&=~OpenFileMapping(~FILE_MAP_ALL_ACCESS,0,"Programm 1.1")

if MapHandle&--MappedFile vorhanden (enthält %hwnd von bereits laufender Instanz)

    ViewHandle&=~MapViewOfFile(MapHandle&,~FILE_MAP_ALL_ACCESS,0,0,32)
    messagebox("Programm läuft bereits","Meldung",0)
    sendmessage(long(ViewHandle&,0),5066,0,0)--Message an 1. Instanz
    ~UnmapViewOfFile(ViewHandle&)
    end
    else--Diese Instant ist die erste > MappedFile anlegen!
    MapHandle&=~CreateFileMapping($FFFFFFFF,0,~PAGE_READWRITE,0,32,"Programm 1.1")
    ViewHandle&=~MapViewOfFile(MapHandle&,~FILE_MAP_WRITE,0,0,32)
    window 100,100-600,400----erst hier wird das Fenster erzeugt!!
    long ViewHandle&,0=%hwnd--Handle in MappedFile schreiben

endif

usermessages 16----WM_CLOSE
usermessages 5066--Irgendein Wert, der hoch genug ist für selbstdefinierte Msg.

while 1------------Eingabeschleife

    waitinput
    case %umessage=16:break--Ende

    if %umessage=5066--------Usermessage von neuer Instanz

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        print "Aktivierung durch neue Instanz"

    endif

    ----Weitere Eingabeabfragen

endwhile

--Sollte bei Ende erreicht werden:
~UnmapViewOfFile(ViewHandle&)
~CloseHandle(MapHandle&)

Def $appTitle "myProgram"
 $U Pipe.pcu = Pipe.
Declare Pipe&

if Pipe.is($appTitle)

    pipe&=pipe.open($appTitle)
    sendmessage(val(pipe.get(pipe&)),5066,0,0)  Message an Erste Instanz
    pipe.close pipe&
    End

endif

decimals 0
Cls
Pipe&:=Pipe.create($appTitle)
pipe.push pipe&,str$(%hwnd)
usermessages 16----WM_CLOSE
usermessages 5066--Irgendein Wert, der hoch genug ist für selbstdefinierte Msg.

while 1------------Eingabeschleife

    waitinput
    case %umessage=16:break--Ende

    if %umessage=5066--------Usermessage von neuer Instanz

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        print "Aktivierung durch neue Instanz"

    endif

    ----Weitere Eingabeabfragen

endwhile

Pipe.close Pipe&

Def CreateMutex(3) !"KERNEL32","CreateMutexA"
Def GetLastError(0) !"KERNEL32","GetLastError"
CreateMutex(0,1,"PROGRAMM")
case Equ(GetLastError(),183):end