¿Como cerrar todos los módulo de una aplicacion?

[jafl1965]

No sé si es la manera más óptima pero así lo tengo yo:


a:= 0 ;
a:= FindWindow(nil,'Polizas') ;
if a<>0 then
begin
ShowMessage('Debe cerrar primero el módulo de Pólizas') ;
SendMessage(a,WM_CLOSE,0,0) ;
end ;

Debes tener presente que si, en este caso Pólizas, tiene una Dialog por el estilo de "Seguro quiere Salir? S/N" Se va a mostrar....
Saludos,