XProfan

'Client
 $H windows.ph
Var IsActive& = 0
Var InMemory& = 4000
Var Ende& = 0
'1024 Bytes grenier
Var SizeOfMem& = 1024
'Speicherbereich anlegen
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'aiguille sur Speicherbereich ermitteln
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'avec cela ist qui Speicherbereich angelegt
Cls
'qui ersten 4 Bytes conservé cela Fensterhandle
Long   hMapView&,0 = %hwnd
'qui prochain 4 Bytes rester libre pour cela Fensterhandle de Programme 2
'je frage mais ab, si Programme2 déjà fonctionne

Si Long(hMapView&,4) <> 0' si qui Wert pleine ist, ensuite fonctionne Programme2

    IsActive& = 1

d'autre

    'avec ShellExecute() peux je Programme2 ici de main starten

Endif

String hMapView&,8 = "String de Programme1"+Chr$(0)'Cordes toujours avec einem Nullbyte abschliessen
'Ist Programme2 aktiv, schicke je qui annonce, cela sich quelque chose im grenier est

Si IsActive&

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

Endif

'vom Programme wird une annonce revenir
Utilisateur Messages InMemory&

whilenot Ende&

    Waitinput

    Si %UMessage = InMemory&

        Localiser 0,0
        Imprimer String$(hMapview&,8)

    Endif

Endwhile

~UnmapViewOfFile(hMapView&)
~CloseHandle(hMapView&)
Fin

'Server
 $H windows.ph
Var IsActive& = 0
Var InMemory& = 4000
Var Ende& = 0
'1024 Bytes grenier
Var SizeOfMem& = 1024
'Speicherbereich anlegen
Var hmap&     = ~CreateFileMapping(-1,0,~PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'aiguille sur Speicherbereich ermitteln
Var hMapView& = ~MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
'avec cela ist qui Speicherbereich angelegt
Cls
'qui zweiten 4 Bytes conservé cela Fensterhandle
Long   hMapView&,4 = %hwnd
Imprimer String$(hMapView&,8)
String hMapView&,8 = "Programm 2 : Habe den String gelesen et geändert"+Chr$(0)'Cordes toujours avec einem Nullbyte abschliessen
SendMessage(Long(hMapView&,0),InMemory&,0,0)
Utilisateur Messages InMemory&

whilenot Ende&

    Waitinput

    Si %UMessage = InMemory&

        Localiser 0,0
        Imprimer String$(hMapview&,8)

    Endif

Endwhile

~UnmapViewOfFile(hMapView&)
~CloseHandle(hMapView&)
Fin

Proc incoming

    var mem& = Externe("kernel32","GetCommandLineA")
    var dans$ = string$(mem&,0)
    var p&= Externe("Shlwapi.dll","PathGetArgsA",addr(dans$))
    var para$ = string$(p&,0)

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

        Externe("Shlwapi.dll","PathUnquoteSpacesA",addr(para$))
        para$ = left$(para$,len(para$)-2)

    endif

    return para$

endproc

cls
Imprimer incoming()
waitinput

Imprimer "Anzahl qui paramètre:",%parcount
Déclarer s$
Imprimer "Länge des Programmpfades:",Len(Par$(0))

WhileLoop 0,%parcount

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

Wend

Imprimer s$
Imprimer "Länge qui paramètre:",Len($ S)
WaitInput
Cas %parcount < 6:Run Par$(0) + " " + " " + s$

 {$cleq}

si parCount==1

    imprimer len(par$(1))
    waitInput

d'autre

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

endif

end