library Project2;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
    DLLform:TForm1;
begin
    DLLform:=TForm1.Create(Application);
    DLLform.Show;
end.

library Project2;
uses
  Unit1 in 'Unit1.pas' {Form1};
exports
  Creatwindows;
end.


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
  public
  end;
var
  Form1: TForm1;
  function Creatwindows:LongWord;stdcall;
implementation
{$R *.dfm}
function Creatwindows:LongWord;
 var DLLform:TForm1;
begin
      DLLform:=TForm1.Create(Application);
      DLLform.Show;
      Result:=1;
end;

end.