我在网上找到一个比较好的例子 FRFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead); FRFileSize := GetFileSize(FRFileHandle,Nil); FRMapHandle := CreateFileMapping (FRFileHandle,nil, PAGE_READONLY,0,FRFileSize,nil); MapFilePointer := MapViewOfFile(FRMapHandle,FILE_MAP_READ,0,0,FRFileSize); CopyMemory(@Sbuf1,Pointer(integer(MapFilePointer) + 0),3000);来自:http://topic.csdn.net/u/20080414/16/71f79f00-b0a1-4647-8e55-6c66b9ff479d.html