Hafızadaki Alanı Sıfırlama

[shooterman]

Selamlar

Arkadaşlar birkaç defadır denk geldiğim bir olaydan dolayıı sizlerden yardım almak istiyorum. Yazmış olduğum bir exenin windowsta kapladığı alan ram üzerinde 2 MB. program sürekli çalışıyor ve kapanmaması gerekiyor. Fakat 2 aydır programın kapandığı ile ilgili olarak tarafıma firmadan bilgi dönülüyor. Her defasında neden kapandığını bulmak istedim ancak windows eventlarında bir log kaydına ulaşamadım. Programı birkaç gün takip ettiğimde ise, ram da kapladığı alan 4 gün de 89 mb ye çıkmış. 10 gün sonra 1 GB ye. nil ve free komutlarını kullandığım halde yinede bir şişme oluyor. Bu sebeple, kodumun arkasına şu fonksiyonu koydum.

procedure TrimAppMemorySize;
var
 MainHandle : THandle;
begin
 try
   MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ;
   SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF) ;
   CloseHandle(MainHandle) ;
 except
 end;
 Application.ProcessMessages;
end;

Prosesim her dakika çalışıp verileri kaydettikten sonra bu kodla trim işlemini yapıyorum. birkaç gün  takip ettim. proses çalışmaya başladığı an exe boyutu 3 mb oluyor. Proses bitince tekrar exe ilk boyutuna dönüyor. Bu işlemin doğru olup olmadığı konusunda fikirlerinizi rica ederim.

[bydelphi]

Bununla ilgili mutlaka iyi bir çözüm vardır diye düşünüyorum,
Ancak şu da geçici bir çözüm olabilir mi?
sistemin bir boşta bekleme anında yani "system idle" anını tespit edip 
o anda kısa bir süreliğine yeni uygulama başlatıp, mevcut uygulamanı terminate edebilirsin.
Dolayısıyla yeni bir proses ile yoluna devam edebilirsin.
Sistemin bu işlem için müsait mi bilmiyorum ama .