XProfan

!
Keywords: several Programmaufrufe/several Instanzen/Mehrfachaufruf blocken/prevent
Def $AppTitle "Mein Programmtitel"
Declare WindowHandle&
Window 100,100 - %Maxx-300,%Maxy-300
on this place ought to yet no cover
definiert his, otherwise GEHTS schief
WindowHandle& = FindWindow($AppTitle)

if WindowHandle& <> 0

    print "Huch, i'm already there."
    print "Nach Tastendruck becomes on The 1. instance umgeschaltet."
    waitinput
    ShowWindow(WindowHandle&, 1)  possibly verstecktes Window again enable
    SetWindowPos WindowHandle& = 100,100 - %Maxx-300,%Maxy-300; 0  in whom Vordergrund fetch
    end  ...and The 2. instance terminate

else

    print "Ich be einmalig."

endif

first to the Check becomes the Window Title staid.
Window Title $AppTitle
waitkey
end

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

proc check_doppelstart    return is 0 if doppelstart vorliegt

    Parameters name$           Mutexname
    declare mutex&,error&
    name$  = translate $(name$ ,"\","/")   Have I somewhere red, that / prohibited are
    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 present (contains %hwnd of already laufender instance)

    ViewHandle&=~MapViewOfFile(MapHandle&,~FILE_MAP_ALL_ACCESS,0,0,32)
    messagebox("Programm runs bereits","Meldung",0)
    sendmessage(long(ViewHandle&,0),5066,0,0)--Message on 1. instance
    ~UnmapViewOfFile(ViewHandle&)
    end
    else--These Instant is The first > MappedFile lay out!
    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----first here becomes the Window created!!
    long ViewHandle&,0=%hwnd--lever in MappedFile write

endif

usermessages 16----WM_CLOSE
usermessages 5066--some worth, the high enough is for selbstdefinierte Msg.

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

    waitinput
    case %umessage=16:break--end

    if %umessage=5066--------User Message of new instance

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        print "Aktivierung through new Instanz"

    endif

    ----further Eingabeabfragen

endwhile

--ought to with end access go:
~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 on first instance
    pipe.close pipe&
    End

endif

decimals 0
Cls
Pipe&:=Pipe.create($appTitle)
pipe.push pipe&,st$(%hwnd)
usermessages 16----WM_CLOSE
usermessages 5066--some worth, the high enough is for selbstdefinierte Msg.

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

    waitinput
    case %umessage=16:break--end

    if %umessage=5066--------User Message of new instance

        shownormal
        setactivewindow(%hwnd)
        setfocus(%hwnd)
        print "Aktivierung through new Instanz"

    endif

    ----further Eingabeabfragen

endwhile

Pipe.close Pipe&

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