XProfan

'Client
 $H windows.ph
Var IsActive& = 0
Var InMemory& = 4000
Var Ende& = 0
'1024 Bytes memory
Var SizeOfMem& = 1024
'Speicherbereich lay out
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'Zeiger on Speicherbereich detect
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'so is the Speicherbereich laid out
Cls
'the first 4 Bytes receive the Fensterhandle
Long   hMapView&,0 = %hwnd
'The next 4 Bytes stay spare for the Fensterhandle of Program 2
'I question but ex, whether Program2 already runs

If Long(hMapView&,4) <> 0' if the worth filled is, then runs Program2

    IsActive& = 1

else

    'with ShellExecute() can I Program2 here by hand started

Endif

String hMapView&,8 = "String of Program1"+Chr$(0)'Strings always with a Nullbyte abschliessen
'is Program2 active, mail I The Message, the itself something in memory befindet

If IsActive&

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

Endif

'of Program becomes a Message get back
User Messages 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 memory
Var SizeOfMem& = 1024
'Speicherbereich lay out
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'Zeiger on Speicherbereich detect
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'so is the Speicherbereich laid out
Cls
'The second 4 Bytes receive the Fensterhandle
Long   hMapView&,4 = %hwnd
Print String $(hMapView&,8)
String hMapView&,8 = "Programm 2 : have whom String red and geändert"+Chr$(0)'Strings always with a Nullbyte abschliessen
SendMessage(Long(hMapView&,0),InMemory&,0,0)
User Messages 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 the Parameter:",%parcount
Declare s$
Print "Länge the Programmpfades:",Len(Par$(0))

WhileLoop 0,%parcount

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

Wend

Print s$
Print "Länge the 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