//Gomme
var
Form1 : TForm;
Function DLLForm(CMAB: Boolean):Boolean; Export;
implementation
{$R *.dfm}
Function CMAbout(CMAB: Boolean):Boolean;
Begin
AboutForm := TAboutForm.Create(Application);
Try
if AboutForm.ShowModal = MrOK then
Result := True;
Finally
AboutForm.Free;
End;
end;
//Çağırma
Function DLLForm(CMAB: Boolean):Boolean; Export;
far; External'DllForm.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
DllForm(True);
end;