PureBasic Forums - English

Code: Select all

; sender
;
mapped_h = CreateFileMapping_($FFFFFFFF,0,#PAGE_READWRITE,0,1024,"shared")
mapped_p = MapViewOfFile_(mapped_h,#FILE_MAP_ALL_ACCESS,0,0,1024)
;
w_main_nr = 1
w_main_h = OpenWindow(w_main_nr,1024+10,10,100,100,"sender",#PB_Window_SystemMenu)

ListViewGadget(1,1,1,WindowWidth(0)-1,WindowHeight(0)-1)
AddGadgetItem(1,-1,"sender")
AddGadgetItem(1,-1,"")
AddGadgetItem(1,-1,Str(mapped_h))
AddGadgetItem(1,-1,Str(mapped_p))
;
Repeat
  event = WindowEvent()
  If event = 0
    Delay(20)
    n = n+1
    If n = 10
      n = 0
      nn = nn+1
      PokeL(mapped_p,nn)
      SetGadgetItemText(1,1,Str(PeekL(mapped_p)),0)
    EndIf
  EndIf
Until event = #PB_Event_CloseWindow