比进程通信好用的内存共享

.子程序 内存共享_读, 字节集, 公开, 读取失败返回空字节集{ }
.参数 Name, 文本型, , 共享名称
.参数 hMemFile, 整数型, 参考, 内存地址 这是要返回的
.局部变量 LPSTR
.局部变量 Data_Temp, 字节集
.局部变量 长度, 整数型

hMemFile ＝ OpenFileMappingA (4, 真, Name)
.如果真 (hMemFile ＜ 1)
返回 ({ })
.如果真结束
LPSTR ＝ MapViewOfFile (hMemFile, 4, 0, 0, 0) ' FILE_MAP_READ = 4
.如果真 (LPSTR ＜ 1)