非常好用的内存共享

有些系统System权限写的内存，普通权限（包括管理员权限）无法读取。
.子程序 内存共享_写, 整数型, 公开, 返回内存地址
.参数 Name, 文本型, , 共享名称
.参数 Data, 字节集, , 写到内存中的数据
.局部变量 hMemFile, 整数型
.局部变量 LPSTR, 整数型
.局部变量 长度, 整数型
.局部变量 长度_, 整数型

长度 ＝ 取字节集长度 (Data)
长度_ ＝ 长度 ＋ 4
hMemFile ＝ CreateFileMappingA (-1, 0, 4, 0, 长度_, Name)
LPSTR ＝ MapViewOfFile (hMemFile, 2, 0, 0, 0) ' FILE_MAP_WRITE = 2
写到内存 (到字节集 (长度) ＋ Data, LPSTR, 长度_)
UnmapViewOfFile (LPSTR)
返回 (hMemFile)