
207
Para señalizarlo llamo a la función SetEvent:
procedure TFTresHilos.SenalizadoClick(Sender: TObject);
begin
SetEvent(Evento);
end;
Y para no señalizarlo utilizo PulseEvent:
procedure TFTresHilos.NoSenalizadoClick(Sender: TObject);
begin
PulseEvent(Evento);
end;
Tenemos dos funciones para no señalizar un evento:
PulseEvent: no señaliza el evento inmediatamente.
ResetEvent: no señaliza el evento la próxima vez que pase por WaitForSingleObject.
Y lo mejor de todo esto que no sólo podemos activar y desactivar hilos de ejecución
dentro de la misma aplicación sino que además podemos hacerlo entre distintas
aplicaciones que se están ejecutando a la vez.
En mi ejemplo he abierto dos instancias de la misma aplicación y no he señalizado en la
primera un evento, con lo que se han detenido las dos:
Comments to this Manuals