XProfan

!
Keywords: plusieurs Programmaufrufe/plusieurs Instanzen/Mehrfachaufruf blocken/verhindern
Def $AppTitle "Mein Programmtitel"
Déclarer WindowHandle&
Fenêtre 100,100 - %Maxx-300,%Maxy-300
à cette Stelle sollte encore ne...aucune Titel
défini son, sonst gehts de travers
WindowHandle& = FindWindow($AppTitle)

si WindowHandle& <> 0

    imprimer "Huch, je suis oui déjà là."
    imprimer "Nach Tastendruck wird sur qui 1. Instanz umgeschaltet."
    waitinput
    ShowWindow(WindowHandle&, 1)  peut-être verstecktes la fenêtre wieder aktivieren
    SetWindowPos WindowHandle& = 100,100 - %Maxx-300,%Maxy-300; 0  dans den Vordergrund holen
    end  ...et qui 2. Instanz finissons

d'autre

    imprimer "Ich suis einmalig."

endif

seulement pour qui Abprüfung wird qui Fenstertitel gesetzt.
Titre de la fenêtre $AppTitle
waitkey
end

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

proc check_doppelstart    return ist 0 si doppelstart vorliegt

    Paramètres nom$           Mutexname
    declare mutex&,error&
    nom$  = translate$(nom$ ,"\","/")   hab je irgendwo gelesen, qui / interdit sommes
    mutex& = CreateMutex(0,1,addr(nom$))
    error& = GetLastError()
    imprimer error&

    si error& = 183

        return 0

    endif

    return 1

endproc

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

 $U pipe.pcu = pipe.
declare pipe&
cas 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")

si MapHandle&--MappedFile vorhanden (contient %hwnd de bereits laufender Instanz)

    ViewHandle&=~MapViewOfFile(MapHandle&,~FILE_MAP_ALL_ACCESS,0,0,32)
    messagebox("Programm fonctionne bereits","Meldung",0)
    sendmessage(long(ViewHandle&,0),5066,0,0)--Message à 1. Instanz
    ~UnmapViewOfFile(ViewHandle&)
    end
    d'autre--cet Instant ist qui 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----seulement ici wird cela la fenêtre erzeugt!!
    long ViewHandle&,0=%hwnd--Handle dans MappedFile écrivons

endif

usermessages 16----WM_CLOSE
usermessages 5066--Irgendein Wert, qui hoch genug ist pour selbstdefinierte Msg.

tandis que 1------------Eingabeschleife

    waitinput
    cas %umessage=16:pause--Ende

    si %umessage=5066--------Usermessage de neuer Instanz

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        imprimer "Aktivierung par neue Instanz"

    endif

    ----Weitere Eingabeabfragen

endwhile

--Sollte chez Ende erreicht volonté:
~UnmapViewOfFile(ViewHandle&)
~CloseHandle(MapHandle&)

Def $appTitle "myProgram"
 $U Pipe.pcu = Pipe.
Déclarer Pipe&

si Pipe.is($appTitle)

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

endif

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

tandis que 1------------Eingabeschleife

    waitinput
    cas %umessage=16:pause--Ende

    si %umessage=5066--------Usermessage de neuer Instanz

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        imprimer "Aktivierung par neue Instanz"

    endif

    ----Weitere Eingabeabfragen

endwhile

Pipe.close Pipe&

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