¿¿Aplicacion no GUI. que no se cierre sola???

[JXJ]

Muy interesante, gracias Seoane

[dec]

Hola,

Me sumo a lo dicho por JXJ, Seoane, muy interesante. Muchas gracias.

[JXJ]

una dudas mas

¿para cerrarlo, via codigo, digamos con sin ser una aplicacion tipo cosola?

Código Delphi [-]
program Ejemplo;


uses Windows, Messages, SysUtils;

var
  Terminar: Boolean;

procedure ProcessMessages;
var
  Msg: TMsg;
begin
  while PeekMessage(Msg,0,0,0,PM_REMOVE) do
  begin
    if Msg.Message = WM_QUIT then
    begin
      Terminar:= TRUE;
      break;
    end else
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
  end;
end;

function HandlerRoutine(dwCtrlType: DWORD): BOOL; stdcall;
begin
  Result:= TRUE;
  case dwCtrlType of
    CTRL_C_EVENT:
      Terminar:= TRUE;
    CTRL_CLOSE_EVENT:
      Terminar:= TRUE;
    CTRL_LOGOFF_EVENT:
      Terminar:= TRUE;
    CTRL_SHUTDOWN_EVENT:
      Terminar:= TRUE;
    else
      Result:= FALSE;
  end;
end;

begin
  Terminar:= FALSE;
  if SetConsoleCtrlHandler(@HandlerRoutine,TRUE) then
    while not Terminar do
    begin
      // Aqui haz lo que quieras


      ProcessMessages;
      if not Terminar then
        Sleep(10);
    end;
end.

ya me perdi. en esto :S

gracias..

[[seoane]]

Empezado por JXJ

¿para cerrarlo, via codigo, digamos con sin ser una aplicacion tipo cosola?

Lo adecuado, si no quieres una aplicación de consola, es crear una ventana (aunque permanezca oculta) y utilizar su bucle de mensajes. Cuando quieras cerrar la aplicación solo tendrás que mandar el mensaje WM_CLOSE. Por otro lado si tu aplicación no es de consola, por que no creas una aplicación normal de delphi y ocultas el formulario principal

[JXJ]

por creerme bien picudo..

estoy re-revisando tu servidor web pico..
y en creer que puedo hacer un servidor tcpip. con indy. usando el dpr.
y darle la opcion de desconectarse y cerrarse a si mismo usando un comando
desde el cliente..