Mi Servicio consume Mucha memoria

[IcebergDelphi]

Empezado por escafandra

Y ¿como vigilas la carpeta que debe recibir el archivo.txt?

Saludos.

Hola escafandra, como te decia tengo una unidad llamada Hilo que realmente es un Trhead, lo chistoso de esto es que tengo una aplicacion que hice ya tiene 2 años atras que igualmente me vigila la carpeta que yo asigne y no me consume memoria, yo creo que es el servicio que hace un continuo loop te paso una parte del codigo del Thread:

Código Delphi [-]
procedure VigilanteUnidad.Execute;  //Se ejecutara el Hilo cada vez que haya algun cambio en algun archivo
Var
  hNotif: THandle;
  P:PAnsiChar;
begin
  SDirVigilar:=P;
  P:=PAnsiChar(SDirVigilar);
  hNotif := FindFirstChangeNotification(P,False,FILE_NOTIFY_CHANGE_FILE_NAME Or   FILE_NOTIFY_CHANGE_DIR_NAME );
  While True do  // Ejecutar siempre
 Begin
   WaitForSingleObject(hNotif, INFINITE);  // Esperamos que se produzca una modificación
    //Syncronize es una funcion o procedimiento del Hilo, que nos servira para llamar a los procedimientos que queramos
    Synchronize(LeeIni);
    FindNextChangeNotification(hNotif);  // y esperamos la siguiente notificación
 end;
end;

ese mismo codigo uso para la aplicacion que hice hace 2 años y no tengo problemas de memoria todo esta relax.

Saludos.