读取文件内存一直增大怎么解决?

Question

function LoadFileData(szFileName:PChar;var FileSize:Cardinal):PChar;
var
  hFile:THandle;
  BytesRead:DWORD;
begin
  Result:=nil;
  FileSize:=0;
  hFile:=CreateFile(szFileName, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Try
    if hFile = INVALID_HANDLE_VALUE then Exit;
    FileSize:=GetFileSize(hFile,nil);
    Result:=VirtualAlloc(nil,FileSize,MEM_COMMIT or MEM_RESERVE,PAGE_READWRITE);
    ReadFile(hFile,Result^,FileSize,BytesRead,nil);
  Finally
    CloseHandle(hFile);
  End;
end; 
我需要定时读取指定文件,不断地调用LoadFileData这个函数,然后内存对比是否被修改,但是每次读取,内存都狂增,请问有什么解决方法么?

Answer 1

抄来的吧，放着GetMem/FreeMem不用非得用VirtualAlloc，光alloc不free还想内存自动回来啊