Hola a todos aqui tengo un problema el cual no puedo encontrar la solucion.
Tengo este programa:
Código Delphi
[-]
program L2exe;
uses Forms,ShellAPI,Windows,TLHelp32,SysUtils,Messages;
type
TL2exe = class(TObject)
constructor Create; virtual;
destructor Destroy; override;
private
end;
constructor TL2exe.Create;
begin
Application.MessageBox('create','Error', MB_ICONEXCLAMATION);
inherited Create;
end;
destructor TL2exe.Destroy;
begin
Application.MessageBox('se cerro','Error', MB_ICONEXCLAMATION);
inherited Destroy;
end;
{$R *.res}
begin
TL2exe.Create;
Application.MessageBox('antes del call procces','Error', MB_ICONEXCLAMATION);
Application.Terminate;
end;
end.
Ejecuta bien el constructor, pero al terminar o terminar el proceso desde el administrador de windows no ejecuta el destroy. Estoy haciendo algo mal ??
Cualquier ayuda para orientarme es bienvenida.
Saludos.