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