Buscar por:

Usando Threads para rodar processo individual na mesma aplicação

Código

type 

TMinhaThread = class(TThread)

  private

  protected

    procedure Execute; override;

  public

    constructor Create();

end;

implementation

constructor TMinhaThread.Create();

begin

inherited Create(True); { Chama o contrutor herdado. Ele irá temporariamente colocar o thread em estado de espera para depois executá-lo. }

  FreeOnTerminate := True; // Libera da memoria o objeto após terminar.

  Priority := TpLower; { Configura sua prioridade na lista de processos do Sistema operacional. }

  Resume; // Inicia o Thread.

end;

procedure MinhaThread.Execute;

begin

 // Aqui fica o corpo da Thread onde você vai rodar seus scripts que devem ser executados em processo individual

end;