XProfan

'Client
 $H windows.ph
Var IsActive& = 0
Var InMemory& = 4000
Var Ende& = 0
'1024 Bytes Speicher
Var SizeOfMem& = 1024
'Speicherbereich invertir
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'Zeiger en Speicherbereich ermitteln
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'Damit es el Speicherbereich creado
Cls
'el ersten 4 Bytes obtener el Fensterhandle
Largo   hMapView&,0 = %hwnd
'el nächsten 4 Bytes bleiben frei para el Fensterhandle de Programa 2
'Yo frage aber de, si Programa2 ya se ejecuta

If Largo(hMapView&,4) <> 0' si la Valor gefüllt es, entonces se ejecuta Programa2

    IsActive& = 1

más

    'con ShellExecute() kann Yo Programa2 hier a mano starten

Endif

String hMapView&,8 = "String de Programa1"+Chr$(0)'Cuerdas siempre con un Nullbyte abschliessen
'Ist Programa2 aktiv, schicke Yo el Meldung, el se algo en el Speicher befindet

If IsActive&

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

Endif

'vom Programa se una Meldung zurückkommen
Mensajes del usuario InMemory&

whilenot Ende&

    Waitinput

    If %UMessage = InMemory&

        Localizar 0,0
        Imprimir 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 invertir
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'Zeiger en Speicherbereich ermitteln
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'Damit es el Speicherbereich creado
Cls
'el zweiten 4 Bytes obtener el Fensterhandle
Largo   hMapView&,4 = %hwnd
Imprimir String$(hMapView&,8)
String hMapView&,8 = "Programm 2 : Pida a los String gelesen y geändert"+Chr$(0)'Cuerdas siempre con un Nullbyte abschliessen
SendMessage(Largo(hMapView&,0),InMemory&,0,0)
Mensajes del usuario InMemory&

whilenot Ende&

    Waitinput

    If %UMessage = InMemory&

        Localizar 0,0
        Imprimir String$(hMapview&,8)

    Endif

EndWhile

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

Proc incoming

    var mem& = Externo("kernel32","GetCommandLineA")
    var en$ = cadena$(mem&,0)
    var p&= Externo("shlwapi.dll","PathGetArgsA",addr(en$))
    var para$ = cadena$(p&,0)

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

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

    endif

    volver para$

ENDPROC

cls
Imprimir incoming()
waitinput

Imprimir "Anzahl el Parámetro:",%parcount
Declarar s$
Imprimir "Länge des Programmpfades:",Len(Par$(0))

WhileLoop 0,%parcount

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

Wend

Imprimir s$
Imprimir "Länge el Parámetro:",Len(s$)
WaitInput
Case %parcount < 6:Run Par$(0) + " " + " " + s$

 {$cleq}

if parCount==1

    imprimir len(par$(1))
    waitInput

más

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

endif

end