Foros Club Delphi - Error al abrir app por segunda vez

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Error al abrir app por segunda vez (https://www.clubdelphi.com/foros/showthread.php?t=96320)

Error al abrir app por segunda vez

Buenos días, a ver si me podeis ayudar. Estoy teniendo un problema con delphi desde hace unas semanas. Por alguna razón me genera mal el ejecutable y a la segunda vez que inicio mi app, recibo este error.

Se que el problema no es del código de la app porque he probado a utilizar código antiguo que iba bien, y en cuanto genero el exe vuelve a ocurrirme. La única forma que he conseguido para que no salga el error es poner un showmessage justo antes de que de el mensaje.
Cada vez que genero el exe, funciona bien la primera vez, las siguientes ya no, hasta que reinicio el equipo.
¿Alguna idea?

El codigo inicial (del dpr) es este

Código Delphi [-]var
  IniAux: TIniFile;
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, True, 'GemaExclusiveMutex');
  if (Mutex <> 0) And (Windows.GetLastError =  0) then
    begin
      try
        with Application do
        begin
          if (ShortDateFormat = 'M/d/yyyy') then
          begin
            ShortDateFormat:='MM/dd/yyyy';
          end;
    //      showMessage('');        <--- si pongo el showmessage aqui es cuando funciona
          CreateForm(TDMFJoya, DMFJoya);
          CreateForm(TDM, DM);
          CreateForm(TFMain, FMain);
          if FMain.bErrorGrave then Exit;
          FMain.Visible := False;
          FMain.Show;
          if not FMain.bModoAutomatico then
          begin
            FMain.WmAfterCreate;
          end;
          Run;
        end;
      finally
        if Mutex <> 0 then
        begin
          DMFJoya.Free();
          CloseHandle(Mutex);
        end;
         IniAux.Free;
      end;
    end
  else
     ShowMessage('La aplicación ya está en ejecución');

Parece que no liberas el Mutex.
Quizás se crea el mutex, pero da error porque ya existe y luego no se libera.
Yo siempre tengo el create seguido de try..finally. Dentro de esto el resto de la programación.
De esta manera evito la posibilidad de que no se libere por alguna condición escondida en la programación.

Código Delphi [-]  o := TComponente.Create();
  try
    // Trabajar con o
    ...
  finally
    o.Free;
  end;

Código Delphi [-]var
  IniAux: TIniFile;
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, True, 'GemaExclusiveMutex');
  try
    if (Mutex <> 0) And (Windows.GetLastError =  0) then
    begin
      with Application do
      begin
        if (ShortDateFormat = 'M/d/yyyy') then
        begin
          ShortDateFormat:='MM/dd/yyyy';
        end;
        // showMessage('');        <--- si pongo el showmessage aqui es cuando funciona
        CreateForm(TDMFJoya, DMFJoya);
        CreateForm(TDM, DM);
        CreateForm(TFMain, FMain);
        if FMain.bErrorGrave then Exit;
        FMain.Visible := False;
        FMain.Show;
        if not FMain.bModoAutomatico then
        begin
          FMain.WmAfterCreate;
        end;

        Run;
      end;
      DMFJoya.Free();
      IniAux.Free;
    end
    else
    ShowMessage('La aplicación ya está en ejecución');
  finally
    if Mutex <> 0 then
      CloseHandle(Mutex);
  end;
end;

Gracias por la ayuda, lo he puesto tal y como has dicho pero me sigue pasando. Tiene que ser otra cosa

Cita:

Empezado por sEngine (Mensaje 552210)

Gracias por la ayuda, lo he puesto tal y como has dicho pero me sigue pasando. Tiene que ser otra cosa

Libera tu componente.
FreeAndNil(objeto)

O usa una función para matar todos los procesos desde el administrador de tareas (puedes pedirle el código a chatGPT)

Código Delphi [-]  with Application do
  begin
    if (ShortDateFormat = 'M/d/yyyy') then
    begin
      ShortDateFormat:='MM/dd/yyyy';
     end;
     // Prueba con esto -----------
     Application.ProcessMessages;
     // ---------------------------
     CreateForm(TDMFJoya, DMFJoya);
     CreateForm(TDM, DM);
     CreateForm(TFMain, FMain);

3- También deberías probar moviendo la parte donde das formato a ShortDateFormat mas abajo. Puede que esto no sea ThreadSafe.

Cita:

Empezado por duilioisola (Mensaje 552221)

Ahora queda ir probando cada parte...

1- Prueba quitando las partes de MUTEX.

2- Otra cosa que se me ocurre es que se esté tratando de mostrar algo "demasiado pronto". Pon una pausa donde pones el ShowMessage.
Por ejemplo:
Código Delphi [-] with Application do begin if (ShortDateFormat = 'M/d/yyyy') then begin ShortDateFormat:='MM/dd/yyyy'; end; // Prueba con esto ----------- Application.ProcessMessages; // --------------------------- CreateForm(TDMFJoya, DMFJoya); CreateForm(TDM, DM); CreateForm(TFMain, FMain);

3- También deberías probar moviendo la parte donde das formato a ShortDateFormat mas abajo. Puede que esto no sea ThreadSafe.

Lo de la pausa me ha funcionado, no pensé que eso fuera a ayudar pero así ha sido

Muchas gracias a todos por la ayuda!