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,
|