Ver Mensaje Individual
  #5  
Antiguo 01-07-2005
jymy788 jymy788 is offline
Miembro
 
Registrado: jun 2004
Posts: 120
Reputación: 22
jymy788 Va por buen camino
sorry por lo de las etiquetas, se me pasó por completo

Este es mi código en el onClose

Código Delphi [-]
procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
 cont : integer;
begin
  for cont := (MDIChildCount - 1) downto 0 do
    MDIChildren[cont].Close;

  Action := CaFree;
end;

Había probado ya el FreeAndNil pero nada, me sigue fallando

De todas formas tengo un ejecutable (50k) que me he creado que me lo ejecuto al destruir la aplicación cuando cierro del todo el programa y con eso me evito las exepciones. Es una "chapuza" pero funciona y como urge....

De todas formas, una pregunta, como puedo obtener el PID del proceso "ejecutable.exe" de mi aplicación???

Un saludo
Responder Con Cita