阅读量:4
在Delphi中，可以使用CreateFileMapping函数来创建文件映射对象。下面是一个简单的示例代码：
const FILE_MAP_ALL_ACCESS = $000F001F; var hFile: THandle; hFileMapping: THandle; pFileData: Pointer; begin // 打开文件 hFile := CreateFile('C:\path\to\file', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hFile = INVALID_HANDLE_VALUE then begin ShowMessage('无法打开文件'); Exit; end; // 创建文件映射 hFileMapping := CreateFileMapping(hFile, nil, PAGE_READONLY, 0, 0, nil); if hFileMapping = 0 then begin ShowMessage('无法创建文件映射'); CloseHandle(hFile); Exit; end; // 将文件映射到内存中 pFileData := MapViewOfFile(hFileMapping, FILE_MAP_READ, 0, 0, 0); if pFileData = nil then begin ShowMessage('无法将文件映射到内存'); CloseHandle(hFileMapping); CloseHandle(hFile); Exit; end; // 现在可以使用pFileData指向的内存来操作文件数据了 // 最后记得释放资源 UnmapViewOfFile(pFileData); CloseHandle(hFileMapping); CloseHandle(hFile); end; 上述代码首先使用CreateFile打开待操作的文件，然后使用CreateFileMapping函数创建文件映射对象，最后使用MapViewOfFile将文件映射到内存中。在操作完成后，需要使用UnmapViewOfFile函数释放内存，并使用CloseHandle函数关闭文件映射和文件句柄。
