Memory Mapped File auslesen; Memory Leak...

[darkdonald]

Hallo!
Ich hab mal wieder ein kleines Problem. Und zwar möchte ich ein MMF auslesen. Funktioniert auch, allerdings habe ein Memory Leak, also der Speicher läuft langsam aber sicher voll..

Hier der Code:

Delphi-Quellcode:

function ReadMemInfo : Boolean;
var myHandle : Integer;
    TempInfo : PCTInfo;
begin
  myHandle :=  OpenFileMapping(FILE_MAP_READ, False, 'MyMappingObject');
  if myHandle > 0 then
  begin
    TempInfo := MapViewOfFile(myHandle, FILE_MAP_READ, 0, 0, 0);
    MemInfo := Tempinfo; 
    Result := True;
  end else result := false;
  CloseHandle(myHandle);
end;

Ich habe es schon mit "UnMapViewOfFile(TempInfo)" versucht, allerdings bekomme ich dann eine Zugriffsverletzung...

Gruss
Donald

PS: Das ganze wird einmal pro Sekunde aufgerufen...