project2.dpr

来自「Form from DLL (Delphi source code) -2」· DPR 代码 · 共 45 行

library Project2;

uses
  Windows,
  SysUtils,
  Classes,
  Forms,
  Unit1 in 'Unit1.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

var
  FOldApplication: TApplication;

procedure ShowForm(app: TApplication; mdi: TForm);
begin
  Application:=app;
  Form2:=TForm2.Create(mdi);
  Form2.Show;
end;


procedure ShowForm1(app: TApplication; mdi: TForm);
begin
  Application:=app;
  Form3:=TForm3.Create(mdi);
  Form3.Show;
end;

procedure LibraryProc(Reason: Integer);
begin
  if Reason=DLL_PROCESS_DETACH then begin
    Application:=FOldApplication;
  end;
end;

exports
  ShowForm,
  ShowForm1;


begin
  FOldApplication:=Application;
  DLLProc:=@LibraryProc;
end.