XProfan

 {$cleq}
Declare Ende&, SizeOfMem&, hmap&, hMapView&, win&
declare zahl1!,zahl2!,text1&,text2&
'1024 Bytes Speicher
SizeOfMem& = 1024
'Speicherbereich anlegen
hmap& = CreateFileMapping(-1,0,PAGE_READWRITE,0,SizeOfMem&,"MeinSpeicher")
'Zeiger auf Speicherbereich ermitteln
hMapView& = MapViewOfFile(hMap&,$000F001F, 0, 0, 0)
win& = @Create("Window", 0, "Parent", 20, 20, 500,400)
text1&=@Create("Text",win&,"1",20,20,100,20)
text2&=@Create("Text",win&,"2",20,45,100,20)
ende&=1

While Ende&

    sleep 5

    if isKey(81)

        ende&=0

    endif

    zahl1!=double(long(hMapview&,11))
    zahl2!=double(long(hMapview&,16))
    settext text1&,str$(@int(zahl1!+0.5))
    settext text2&,str$(@int(zahl2!+0.5))

EndWhile

UnmapViewOfFile(hMapView&)
CloseHandle(hMapView&)
End