Aplicación queda siempre activa
 

Buenas tardes

tengo una aplicación que queda activa en el administrador de tareas y no cierra después de darle el "close", por favor si alguien me puede ayudar le agradezco mucho por su colaboración y tiempo ya que lo que había en los foros no me sirvió ninguno, o mas bien no supe interpretarlo para saber que hacer muchas gracias de nuevo.

este es mi código para el form principal.

Código Delphi [-]

unit pantalla;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, JvExControls, JvgDigits, StdCtrls, CPort, JvComponentBase, JvTFManager, JvTFAlarm;

type
  TForm1 = class(TForm)
    ComPort1: TComPort;
  
    procedure FormCreate(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
    procedure validar();



  private
    { Private declarations }
  public
     StartX, StartY, StartW, StartH,s1,h1: Integer;
     flat : Boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,h,m,s,b: Integer;
  var dato1,dato3,t,t1: string;

implementation



{$R *.dfm}

uses reloj;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComPort1.ShowSetupDialog;

  a:= 0;
  b:= 0;
  ComPort1.Open;
  SwitchDesktop(CreateDesktop('ClubDelphi', nil, nil, 0, MAXIMUM_ALLOWED, nil));

  BoundsRect := Rect(0, 0, 0, 0);
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);

begin
 ComPort1.ReadStr(dato1, Count);
 dato3 := dato3+dato1;
 if Length(dato3) = 8 then
    validar();
end;

procedure TForm1.validar();
begin
  h1:=0;
  t:= Copy(dato3,1,1);
  if t = 'I' then
   begin
     t1:= Copy(dato3,3,3);
     s1:=StrToInt(t1)+ reloj.mm;
     if s1 > 59 then
       begin
         while s1 > 59 do
           begin
             s1:= s1-60;
             Inc(h1);
           end;
       end;

     SwitchDesktop(OpenDesktop('Default', 0, False, DESKTOP_SWITCHDESKTOP));


    with TClock.Create(Self) do
       SetWindowPos(Handle, // handle to window
               HWND_TOPMOST, // placement-order handle {*}
               1,  // horizontal position
               739,   // vertical position
               60,
               20,
               // window-positioning options
               SWP_NOREPOSITION);

   end
  else
    if t= 'C' then
      begin
         ComPort1.WriteStr('CERRANDO');
         SwitchDesktop(OpenDesktop('Default', 0, False, DESKTOP_SWITCHDESKTOP));
         ComPort1.Close;
         Close;
      end;


   dato3 := '';
   dato1 := '';

end;

end.

y el form2 es el siguiente;

Código Delphi [-]

unit reloj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JvExControls, JvSegmentedLEDDisplay, ExtCtrls, StdCtrls;

type
  TClock = class(TForm)
    
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    flat: Boolean;
    { Public declarations }

  end;

var
  Clock: TClock;
  ss,mm,hh,t: Integer;
  s,m,h: string;

implementation

uses pantalla;

{$R *.dfm}

procedure TClock.FormCreate(Sender: TObject);
begin
   flat := False;
   ss:= 59;
   mm:= Form1.s1;
   hh:= Form1.h1+hh;
   t:=0;

   if mm > 59 then
       begin
         while mm > 59 do
           begin
             mm:= mm-60;
             Inc(hh);
           end;
       end;

    
end;



procedure TClock.Timer1Timer(Sender: TObject);
begin
    if mm = 0 then
      begin
        if hh > 0 then
          begin
            Dec(hh);
            mm:=59;
            ss:=60;
          end
        else
          if ss = 0 then
            begin
    
              Form1.ComPort1.WriteStr('I1');
              SwitchDesktop(CreateDesktop('ClubDelphi', nil, nil, 0, MAXIMUM_ALLOWED, nil));
              Clock.Close;
            end;

      end;

      if t=60 then
       begin
        if mm > 0 then
         begin
          Dec(mm);
          ss:=60;
          t:=0;
         end;
         t:=0;
       end;

     inc(t);
     Dec(ss);
    

end;

end.

los datos por el puerto los acepta bien pero cuando intento cerrar, queda la aplicación activa en el administrador de tareas no se cierra definitivamente,


de nuevo mucas gracias

yevabas,

Pregunto:

1- ¿Que hace exactamente SwitchDesktop?, ¿Como se finaliza?, ¿Crea algún hilo?.

2- ¿Cuando cierras la aplicación verificas si ComPort1 esta Open y haces un Close del mismo?.

3- ¿Hay algún punto del código de la aplicación en el cual pueda entrar en un Loop al momento de finalizar?.

4- ¿Si usas Application.Terminate la aplicación finaliza?.

5- ¿Haz hecho un Debug de la aplicación para ver la secuencia de cierre de la misma?.

6- Monitorea la aplicación con Process Explorer de Sysinternals Suite y verifica en el Tab Threads que hilos están abiertos cuando cierras la aplicación y si estos quedan activos luego del Close.

Revisa este link:
Espero sea útil :)

Nelson.

Hola yevabas.

No puedo reproducir tu ejemplo por no utilizar muchos de los componentes que figuran en tu código y realmente cuando leí tu mensaje, se me presentaron muchos de los interrogantes que te planteó nlsgarcia en el mensaje anterior.

Pero, a grandes rasgos creo haber entendido que deseas ejecutar el form TClock en el nuevo escritorio y el problema consiste en que luego no podes cerrar el form (Form1) que llamó a TClock.

Si es así, creo que podrías hacer:

Código Delphi [-]
...

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Validar;
  private
    FODesk, FNDesk, FOThrd : HDESK;
  public
    //...
  end;

...

implementation

uses Unit2; // Clock

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Inicializaciones, etc,
  //....

  // Obtener handles actuales
  FODesk := OpenInputDesktop(0,
                             FALSE,
                             DESKTOP_SWITCHDESKTOP);
  FOThrd := GetThreadDesktop(GetCurrentThreadId());

  // Crear nuevo desktop
  FNDesk := CreateDesktop('NewDesktop',
                          nil,
                          nil,
                          0,
                          DESKTOP_CREATEWINDOW,
                          nil);
  
  if FNDesk = 0 then // ¿ Todo bién ?
    raise Exception.Create('Error creando nuevo escritorio'); // No, error

  // Cambiar a "NewDesktop"
  SwitchDesktop(FNDesk);

  // Ejecutar tu ventana (Clock) en "NewDesktop"
  Validar;

  // Cerrar "NewDesktop"
  CloseDesktop(FNDesk);

  // Restaurar
  SwitchDesktop(FODesk);
  SetThreadDesktop(FOThrd);
  
  ...
end;


procedure TForm1.Validar;
begin
  ...

  with TClock.Create(Self) do
  try
    ...
    ShowModal
  finally
    Free;
  end;
  ...
end;

...

Saludos. :)