文件映射示例-FISH制作

//创建映射 SERVER做的动作 procedure TForm1.Button1Click(Sender: TObject); begin if HMap = 0 then begin HMap := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, 4 * 1024, 'MemorySharedFile'); if HMap=0 then TS('试图建立成功'); end; {我觉得单个功能的文件映射更能够让使用者快速的掌握，希望看了我的例子对你有帮助！} //================================================= 代码里面有一处提示错误，特此更正一下 if HMap = 0 then begin HMap := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, 4 * 1024, 'MemorySharedFile'); if HMap=0 then TS('试图建立失败‘); end;