Evitar cerrar formulario principal si hay librerías cargadas dinámicamente

[[cHackAll]]

MAIN;

Código Delphi [-]
//...
 
var Count: PCardinal;
 
procedure TMain.FormCreate(Sender: TObject);
begin
 Count := MapViewOfFile(CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, 4, 'SHARED'), FILE_MAP_READ, 0, 0, 0);
end;
 
//...
 
procedure TMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := not LongBool(Count^);
 if not CanClose then
  ShowMessage('No cierras!');
end;
 
//...

DLLs;

Código Delphi [-]
//...
 
var Count: PCardinal;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Count := MapViewOfFile(OpenFileMapping(FILE_MAP_WRITE, False, 'SHARED'), FILE_MAP_WRITE, 0, 0, 0);
 Inc(Count^);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 Dec(Count^);
end;
 
//...

Básicamente el proceso/aplicación principal crea un espacio de memoria compartida en el que residirá nuestro contador, así mismo las DLLs acceden a dicho contador y lo incrementan en uno cuando el formulario que contiene dicha librería es creado. Al momento de ser destruido el formulario NO es liberada la librería del proceso que la ha cargado anteriormente, sin embargo en este caso tan particular su razón de existir termina y decrementamos el contador en uno.

Obviamente al intentar cerrar el formulario principal revisará si dicho contador esta en 0, en caso contrario significa que algún formulario no ha sido cerrado, y por ende no es "aconsejable" cerrarlo.

Espero te sea de utilidad.

Saludos