XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Handle schließen und Speicher freigeben per API
Def @CloseHandle(1) !kernel32, CloseHandle,
Def @CreateFileMapping(6) !kernel32,CreateFileMappingA
Def @Mapviewoffile(5) !kernel32,MapViewOfFile
Def @Unmapviewoffile(1) !kernel32,UnmapViewOfFile
Def @Copymemory(3) !kernel32,RtlMoveMemory
Windowstyle 31+512
Windowtitle Hier wird die Variable erzeugt
Window 0,0-300,400
Declare Variable&,Tick&,Name$,Ausgelesen#
Declare Speicherhandle&,Speicheraddr&
Let Name$=AH-Variable
Let Speicherhandle&=@Createfilemapping($Ffffffff,0,4,0,4,@Addr(Name$))
Let Speicheraddr&=@Mapviewoffile(Speicherhandle&,2,0,0,0)
Drawtext 0,50,Handle des Speicherbereichs:+@Str$(Speicherhandle&)
Let Tick&=&Gettickcount

Whilenot %Menuitem=-2

    If &Gettickcount-Tick&>10000

        Let Variable&=@Rnd(1000)
        @Copymemory(Speicheraddr&,@Addr(Variable&),4)
        Let Tick&=&Gettickcount

    Endif

    Dim Ausgelesen#,256
    @Copymemory(Ausgelesen#,Speicheraddr&,4)
    Drawtext 0,80,Variale=+@Str$(@Long(Ausgelesen#,0))+
    Dispose Ausgelesen#
    Sleep 10

Wend

@Unmapviewoffile(Speicheraddr&)
@Closehandle(Speicherhandle&)
Beep 1