Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 17/01/11
Por: Maiconn.r.koczenski
Visualizada: 10728 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009