Fórum Problemas para descarregar .bpl ( UnloadPackage(); ) #362894

unit uFormBpl2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm3 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

procedure me; stdcall;

exports
  me;

implementation

procedure me; stdcall;
begin
  if not Assigned(Form3) then
    Application.CreateForm(TForm3, form3)
  else
    with form3 do
      begin
        show;
        BringToFront;
        WindowState := wsNormal;
      end;

(*  if not Assigned(Form3) then
     Form3 := TForm3.Create(Application)
  else
    with Form3 do
      begin
        Show;
        BringToFront;
        WindowState := wsNormal
      end;*)
end;

{$R *.dfm}

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form3 := nil;
end;

end.

procedure TfrmPrincipal.este011Click(Sender: TObject); 
type 
  TChamar = procedure; stdcall; 
var 
  _Chamar: TChamar; 
  i: Smallint; 
begin 
  i := Length(carregados); 

  SetLength(carregados, i + 1); 
  carregados[i].nome := ´pkgTeste01.bpl´; 
  carregados[i].modulo := LoadPackage(carregados[i].nome); 

  if carregados[i].modulo > 0 then 
    begin 
      @_Chamar := GetProcAddress(carregados[i].modulo, ´chamar´); 
      _Chamar; 
    end; 
end;

procedure descarregar;
var
  _hnd: THandle;
begin
  _hnd := GetModuleHandle(´MyPackage.bpl´);
  UnloadPackage(_hnd);
end;

form Principal..

private
{ Private declarations }
procedure UserMessage (var Msg: TMessage);

procedure TForm1.UserMessage(var Msg: TMessage);
begin
//Aqui descarrega o seu Package
showmessage(´fechou´);
end;   

//Inclui nos Forms Filhos
formHandle:THandle;
MsgBack:integer;

//Ao cria este Formulários deve passar o Valor correto

FormFilho.formHandle:=Handle; //do form Principal
FormFilho.MsgBack:=wm_user;

// nos forms Filhos
procedure TFormFilhos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 //envia uma mensagem para o Form Principal
 postMessage (FormHandle, MsgBack,0, 0);
end;

form Principal..

private
{ Private declarations }
procedure UserMessage (var Msg: TMessage);

procedure TForm1.UserMessage(var Msg: TMessage);
begin
//Aqui descarrega o seu Package
showmessage(´fechou´);
end;   

//Inclui nos Forms Filhos
formHandle:THandle;
MsgBack:integer;

//Ao cria este Formulários deve passar o Valor correto

FormFilho.formHandle:=Handle; //do form Principal
FormFilho.MsgBack:=wm_user;

// nos forms Filhos
procedure TFormFilhos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 //envia uma mensagem para o Form Principal
 postMessage (FormHandle, MsgBack,0, 0);
end;

const
  Msg = WM_USER;
// Esta constante deve estar antes da declaraçao de type do form Principal.

// em private ou public
procedure UserMessage(var Message: TMessage); message Msg;

// aqui a implementação
procedure TfrmPrincipal.UserMessage(var (* Note aqui esta variavel Message *) Message: TMessage);
begin
  UnloadPackage(MyHandle);
end;

const
  Msg = WM_USER;

// No OnDestroy do form filho coloquei assim
procedure TTeste02.FormDestroy(Sender: TObject);
var
  hnd: THandle;
begin
  hnd := FindWindow(nil, PChar(Application.MainForm.Caption));
  PostMessage(hnd, Msg, 0, 0);
end;

procedure TForm1.UserMessage(var Msg: TMessage);
var
Hmod: HMODULE;
begin
  Hmod := Msg.WParam; //Aqui esta a DICA...
 // Ai descarregar ..
unLoadPackage(Hmod);
end;

Private
 Modulo: HMODULE;

procedure chamar(O Handle Da Package); stdcall; 
begin 
  if MyFormChild = nil then 
    begin
      Application.CreateForm(TMyFormChild, MyFormChild) ;
      Modulo:=O Handle Da Package;
  else 
  with MyFormChild do 
    begin 
      Show; 
      BringToFront; 
      WindowState := wsNormal; 
    end; 
end; 

procedure TForm1.UserMessage(var Msg: TMessage);
var
Hmod: HMODULE;
begin
  Hmod := Msg.WParam; //Aqui esta a DICA...
 // Ai descarregar ..
unLoadPackage(Hmod);
end;

Private
 Modulo: HMODULE;

procedure chamar(O Handle Da Package); stdcall; 
begin 
  if MyFormChild = nil then 
    begin
      Application.CreateForm(TMyFormChild, MyFormChild) ;
      Modulo:=O Handle Da Package;
  else 
  with MyFormChild do 
    begin 
      Show; 
      BringToFront; 
      WindowState := wsNormal; 
    end; 
end;