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