Encontré esto es un blog:
Cita:
Para ello lo que hacemos es crear un hilo de ejecución heredando de la clase TThread del siguiente modo:
THilo = class( TThread )
Ejecutar: procedure of object;
procedure Execute; override;
end;
La definición anterior hay que colocarla dentro del apartado Type de nuestra unidad (en la sección interface). Le he añadido el procedimiento Ejecutar para poder mandarle que procedimiento queremos que se ejecute paralelamente.
En el apartado implementation de nuestra unidad redifinimos el procedimiento de la clase TThread para que llame a nuestro procedimiento Ejecutar:
procedure THilo.Execute;
begin
Ejecutar;
Terminate;
end;
Con esto ya tenemos nuestra clase THilo para crear todos los hilos de ejecución que nos de la gana. Ahora vamos a ver como se crea un hilo y se pone en marcha:
var
Hilo: THilo; // variable global o pública
procedure CrearHilo;
begin
Hilo.Ejecutar := ProcesarDatos;
Hilo.Priority := tpNormal;
Hilo.Resume;
end;
procedure ProcesarDatos;
begin
// Este es el procedimiento que ejecutará nuestro hilo
// Cuidado con hacer procesos críticos aquí
// El procesamiento paralelo de XP no es el de Linux
// Se puede ir por las patas abajo...
end;
Si en cualquier momento queremos detener la ejecución del hilo:
Hilo.Terminate;
FreeAndNil( Hilo );
|
¿Es eso a lo que te refieres?