quarta-feira, 4 de agosto de 2010

Terminar uma thread "por fora"

Eventualmente precisamos terminar um thread que esta fora do nosso controle.

Tempos atrás eu vi a dica abaixo.

O link se perdeu.

procedure TForm1.Button6Click(Sender: TObject);
var
hHandle : THandle;
iExit   : Integer;
bRet    : Boolean;
begin
  hHandle := OpenThread(1,True,StrToInt(Self.Edit1.Text));
  bRet := TerminateThread(hHandle,iExit);
  if not (bRet) then
    ShowMessage('Insucesso!')
  else
    ShowMessage('Sucesso!')
end;

Nenhum comentário:

Minha lista de blogs