GUI per DLL

[ste_ett]

Code:

library Project2;

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

var
  Form: TForm;
  Button: TButton;
  Memo: TMemo;

procedure DLLFormShow; stdcall;
begin
  Form := TForm.Create(nil);
  Memo := TMemo.Create(Form);
  Button := TButton.Create(Form);
  Form.Show;
end;

procedure DLLFormFree; stdcall;
begin
  Memo.Free;
  Button.Free;
  Form.Free;
end;

exports
  DLLFormShow,
  DLLFormFree;
{$R *.res}


begin
end.