文件名称：文件映射示例-FISH制作
文件大小：155KB
文件格式：7Z
更新时间：2013-09-02 16:04:40
文件映射示例-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;
【文件预览】：
Mapshare.res
Unit1.dfm
Unit1.pas
Mapshare.exe
Mapshare.dpr