Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 14-07-2017
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
¿Tu sistema de qué??

Bueno para cerrar un thread simplemente guarda su 'Handle' y usa la api terminatethread por ejemplo:

Código Delphi [-]
var
  threadid: LongWord;

procedure hilo;
begin
  repeat
    messageboxa(0, pchar('test'), '', 0);
    Sleep(1000);
  until 1 = 2;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  threadid := BeginThread(nil, 0, addr(hilo), nil, 0, threadid);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  TerminateThread(threadid, 0)
end;

Si lo que quieres es evitar que se cierren tendrás que mirar de localizar si la ID se ha cerrado y reabrirlo.

Sin contar que también pueden editar la memoria y hacer 1000 cosas más....

En cierto modo te es prácticamente inútil esa medida por lo comentado anteriormente, te recomiendo mirar de evitar cambios en la memoria.

Última edición por Reasen fecha: 14-07-2017 a las 11:07:28.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Evitar cerrar una ventana Ubed Varios 4 12-02-2021 17:46:59
Cerrar form al terminar Hilo NEG1414 C++ Builder 3 05-03-2015 19:10:57
Evitar cerrar un formulario desde un componente genius Varios 1 23-11-2006 15:55:42
Evitar cerrar form con la tecla ESC... uper Varios 1 06-12-2005 20:11:54
Cerrar el programa al acabar un thread tortelini API de Windows 2 07-04-2005 22:26:18


La franja horaria es GMT +2. Ahora son las 14:35:26.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi