XProfan

!
Keywords: mehrere Programmaufrufe/mehrere Instanzen/Mehrfachaufruf blocken/verhindern
Def $AppTitle "Mein Programmtitel"
Declarar WindowHandle&
Ventana 100,100 - %Maxx-300,%Maxy-300
a dieser Punto debería todavía kein Titel
definiert ser, sonst gehts torcido
WindowHandle& = FindWindow($AppTitle)

if WindowHandle& <> 0

    imprimir "Huch, Yo bin sí ya como."
    imprimir "Nach Tastendruck se en el 1. Instanz umgeschaltet."
    waitinput
    ShowWindow(WindowHandle&, 1)  evtl. verstecktes Ventana otra vez aktivieren
    SetWindowPos WindowHandle& = 100,100 - %Maxx-300,%Maxy-300; 0  en el Vordergrund holen
    end  ...y el 2. Instanz final

más

    imprimir "Ich bin einmalig."

endif

sólo después de el Abprüfung se el Fenstertitel gesetzt.
Título de la ventana $AppTitle
waitkey
end

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

proc check_doppelstart    volver es 0 si doppelstart vorliegt

    Parámetros name$           Mutexname
    declarar mutex&,error&
    name$  = translate$(name$ ,"\","/")   tener Yo irgendwo gelesen, daß / verboten son
    mutex& = CreateMutex(0,1,addr(name$))
    error& = GetLastError()
    imprimir error&

    if error& = 183

        volver 0

    endif

    volver 1

ENDPROC

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

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

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

if MapHandle&--MappedFile disponible (enthält %hwnd de ya laufender Instanz)

    ViewHandle&=~MapViewOfFile(MapHandle&,~FILE_MAP_ALL_ACCESS,0,0,32)
    messagebox("Programm se ejecuta bereits","Meldung",0)
    sendmessage(long(ViewHandle&,0),5066,0,0)--Message a 1. Instanz
    ~UnmapViewOfFile(ViewHandle&)
    end
    más--Diese Instant es el erste > MappedFile invertir!
    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----sólo hier se el Ventana producido!!
    long ViewHandle&,0=%hwnd--Handle en MappedFile escribir

endif

usermessages 16----WM_CLOSE
usermessages 5066--Irgendein Valor, el hoch genug es para selbstdefinierte Msg.

mientras que 1------------Eingabeschleife

    waitinput
    caso %umessage=16:romper--Ende

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

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        imprimir "Aktivierung por neue Instanz"

    endif

    ----Weitere Eingabeabfragen

endwhile

--Sollte en Ende erreicht voluntad:
~UnmapViewOfFile(ViewHandle&)
~CloseHandle(MapHandle&)

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

if Pipe.is($appTitle)

    pipe&=pipe.open($appTitle)
    sendmessage(val(pipe.get(pipe&)),5066,0,0)  Message a 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 Valor, el hoch genug es para selbstdefinierte Msg.

mientras que 1------------Eingabeschleife

    waitinput
    caso %umessage=16:romper--Ende

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

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        imprimir "Aktivierung por neue Instanz"

    endif

    ----Weitere Eingabeabfragen

endwhile

Pipe.close Pipe&

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