Funktion bläht allmählich Auslagerungsdatei auf

[vazili_Zaitzef]

Hallo,

ich benutze eine Funktion, die nachschaut, ob eine Anwendung läuft. Diese Funktion wird alle paar Sekunden (5Sek.) über einen Timer ausgeführt.
nach längerer Arbeitszeit mit einem Windows XP system stellt man fest, das die Auslagerungsdatei kontinuierlich MB für MB wächst.

Ich habe keinen Plan, woran das liegen kann. Habt Ihr eine Idee, die ich ausprobieren kann?

Vielen Dank für Eure Hilfe und beste Grüße

Vazili

Code: Alles auswählen

function processExists(exeFileName: string): Boolean;
var
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  ContinueLoop: BOOLean;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
end;

[theo]

Ich habe von der Funktion keine Ahnung, aber alles was nach "Create" klingt wie "CreateToolhelp32Snapshot", sollte nach meinem Gefühl irgendwo wieder freigegeben werden.
Warum nicht mal googeln?
Aha, da kommt man ja auf MSDN!
Da steht: "To destroy the snapshot, use the CloseHandle function."

http://msdn.microsoft.com/en-us/library ... 85%29.aspx

[vazili_Zaitzef]

Hi,

wie war das noch gleich mit den Bäumen und dem Wald????
Das war wohl meine Problem. Jetzt scheint es zu funktionieren.

Vielen Dank für die schnelle und gute Hilfe

Bis später
Beste Grüße
Vazili