library Demoplugin;

uses
  Windows,
  UMain in 'UMain.pas' {FMain};


type
  PHWND = ^HWND;


function FORMINIT (Version: Word; Variant: Integer; hParent: HWND;
Data: PChar; hDialog: PHWND; Callback_Name: PChar): Word; stdcall;
begin
  Result := 0;
  if not Assigned(FMain) then
  begin
    FMain := TFMain.CreateParented(hParent);
    hDialog^ := FMain.Handle;
    Result := 1;
  end;
end;


exports
  FORMINIT index 1;


begin
end.