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

[JXJ]

Hola. estoy viendo como hacer una aplicacion, que no
muestre una interfaz grafica. pensando en hacer un
para un servidor FTP , para la pc donde vivo poder subir
mis archivos de trabajo..

tengo este esqueleto basico,

Código Delphi [-]
program miprograma;
uses
SysUtils;

//Inicia el programa
begin

end.

Entonces, les pregunto,
¿ como puedo hacer que
mi programa no se cierre, o finalize hasta que se le ordene
finalizar.?

el programa no se comparta como si fuese
una aplicacion delphi normal
esperando algo a que explicitamente se le ordene cerrarse.

quiero que el ftp se quede escuchando en un puerto
y si recibe el comando de cerrar, finalize la aplicación.

gracias por su atención

[[seoane]]

¿Que tal con un bucle?

Código Delphi [-]
program miprograma;
uses 
SysUtils;

//Inicia el programa
begin
  while TRUE do
  begin

  end;
end.

Aunque puede que necesitemos que la CPU respire:

Código Delphi [-]
program miprograma;
uses 
SysUtils;

//Inicia el programa
begin
  while TRUE do
  begin
    

    Sleep(10);
  end;
end.

[JXJ]

Hola
Seoane
gracias por tu atención

este... como que no entiendo bien, como funciona eso de
Mientras sea verdad ¿¿que ???
Esta criptico para mi.

Código Delphi [-]
while TRUE do //True o verdad que ??:S:S:S
  begin
    

    Sleep(10);//<- Este si se que detiene en milisegundos.
  end;

//--Asi probe el codigo y funciona.

Código Delphi [-]
{$SetPEFlags 1} //<-Directiva reduce tamaño del exe, solo disponible desde delphi 2005 hasta D2007 win32 
program GServerc;

uses
SysUtils, Dialogs;

var
contador: Integer;
Cerrar : Boolean;

//Inicia el programa
begin
    Contador := 1;
    Cerrar := False;
    //Bucle que mantendrá el programa vivo
  while True do
  begin
      Sleep(10);//<- Descansamos el CPU 
      if Cerrar = False then
      begin
        Contador := Contador +1;
        if contador = 100 then
      begin
      Cerrar := True;
        showmessage(intToStr(Contador));
     end

      end
      else
        //Si deseamos hacer algo al salir ponerlo aquí
        Break;
    end;


end.

[MAXIUM]

en mis tiempos de Turbo Pascal usaba un keypressed con un
While, lo que resultaba que al presionar una tecla o una determinada tecla (ESC) finalizaba la instrucción.

Alternativas sencillas: usar un readkey o un comando SHELL (pause) al final.

Código Delphi [-]
if Cerrar = False then

Cerra es un boleano entonces:

Código Delphi [-]
if not Cerrar then

[JXJ]

MAXIUM

voy a probar lo que mencionas.

[[seoane]]

Bien, si un bucle no es suficiente vamos a hacer las cosas a lo grande. Primero necesitamos crear una función para manejar las señales que son enviadas a la aplicación. Una como esta:

Código Delphi [-]
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;

Aquí yo pongo una variable global (Terminar) a false como respuesta a todos los eventos. Tu puedes manejar esos eventos como prefieras, solo tienes que tener en cuenta que si la función devuelve FALSE la señal se pasa al siguiente manejador.

Ahora que ya manejamos los eventos Ctrl+C, Close, Logoff y Shutdown, no estaría mal disponer de un bucle de mensajes en nuestra aplicación. Si vas a usar algún timer, o algún componente que maneje internamente mensajes, este bucle sera imprescindible. Lo primero vamos a crear una función similar al famoso "Application.ProcessMessages", algo así:

Código Delphi [-]
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;

Ahora solo nos falta encajar todo esto en nuestra aplicacion la cosa quedaria mas o menos asi:

Código Delphi [-]
program Ejemplo;

{$APPTYPE CONSOLE}

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.

Donde pone "Aquí haz lo que quieras" coloca tu código, solo recuerda, que si vas a colocar un bucle dentro de tu código, deberás tener en cuenta la variable Terminar y llamar de vez en cuando a la función "ProcessMessages" para vaciar la cola de mensajes.

Por cierto, para cerrar la aplicación puedes usar Ctrl+C o la X de la ventana con la consola, da igual, la aplicación se cerrara limpiamente poniendo la variable Terminar a true y saliendo del bucle.