XProfan

'Client
 $H windows.ph
Var IsActive& = 0
Var InMemory& = 4000
Var Ende& = 0
'1024 Bytes Speicher
Var SizeOfMem& = 1024
'Speicherbereich anlegen
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'Zeiger auf Speicherbereich ermitteln
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'Damit ist der Speicherbereich angelegt
Cls
'die ersten 4 Bytes erhalten das Fensterhandle
Long   hMapView&,0 = %hwnd
'die nächsten 4 Bytes bleiben frei für das Fensterhandle von Programm 2
'ich frage aber ab, ob Programm2 schon läuft

If Long(hMapView&,4) <> 0' wenn der Wert gefüllt ist, dann läuft Programm2

    IsActive& = 1

else

    'mit ShellExecute() kann ich Programm2 hier von Hand starten

Endif

String hMapView&,8 = "String von Programm1"+Chr$(0)'Strings immer mit einem Nullbyte abschliessen
'Ist Programm2 aktiv, schicke ich die Meldung, das sich etwas im Speicher befindet

If IsActive&

    SendMessage(Long(hMapView&,4),InMemory&,0,0)

Endif

'vom Programm wird eine Meldung zurückkommen
UserMessages InMemory&

whilenot Ende&

    Waitinput

    If %UMessage = InMemory&

        Locate 0,0
        Print String$(hMapview&,8)

    Endif

EndWhile

~UnmapViewOfFile(hMapView&)
~CloseHandle(hMapView&)
End

'Server
 $H windows.ph
Var IsActive& = 0
Var InMemory& = 4000
Var Ende& = 0
'1024 Bytes Speicher
Var SizeOfMem& = 1024
'Speicherbereich anlegen
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'Zeiger auf Speicherbereich ermitteln
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'Damit ist der Speicherbereich angelegt
Cls
'die zweiten 4 Bytes erhalten das Fensterhandle
Long   hMapView&,4 = %hwnd
Print String$(hMapView&,8)
String hMapView&,8 = "Programm 2 : Habe den String gelesen und geändert"+Chr$(0)'Strings immer mit einem Nullbyte abschliessen
SendMessage(Long(hMapView&,0),InMemory&,0,0)
UserMessages InMemory&

whilenot Ende&

    Waitinput

    If %UMessage = InMemory&

        Locate 0,0
        Print String$(hMapview&,8)

    Endif

EndWhile

~UnmapViewOfFile(hMapView&)
~CloseHandle(hMapView&)
End

Proc incoming

    var mem& = External("kernel32","GetCommandLineA")
    var in$ = string$(mem&,0)
    var p&= External("shlwapi.dll","PathGetArgsA",addr(in$))
    var para$ = string$(p&,0)

    if left$(para$,1) = "\q"

        External("shlwapi.dll","PathUnquoteSpacesA",addr(para$))
        para$ = left$(para$,len(para$)-2)

    endif

    return para$

endproc

cls
Print incoming()
waitinput

Print "Anzahl der Parameter:",%parcount
Declare s$
Print "Länge des Programmpfades:",Len(Par$(0))

WhileLoop 0,%parcount

    s$ = s$ + " \q" + Par$(&Loop) + "\q"

Wend

Print s$
Print "Länge der Parameter:",Len(s$)
WaitInput
Case %parcount < 6:Run Par$(0) + " " + " " + s$

 {$cleq}

if parCount==1

    print len(par$(1))
    waitInput

else

    shell par$(0)+" \q"+mkstr$("1234567890",30)+"\q"

endif

end