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

[[cHackAll]]

Bueno, con respecto al título del hilo;

Código Delphi [-]
//...
 
uses PsAPI;
 
var Count: Cardinal;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 EnumProcessModules(GetCurrentProcess, nil, 0, Count);
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var Last: Cardinal;
begin
 EnumProcessModules(GetCurrentProcess, nil, 0, Last);
 CanClose := not LongBool(Last - Count);
 if not CanClose then
  ShowMessage(IntToStr((Last - Count) div 2) + ' librerias cargadas dinamicamente. USE: FreeLibrary');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 LoadLibrary('3ivx.dll');
end;

PD; pues lo pongo porque me he aburrido un poquito .

Saludos