library MyDLL;
uses
 SysUtils,
 Classes;

{$R *.res}
type
 TFoo= class
 public
    function AFoo:Char;virtual;cdecl;
 end;
var Foo:TFoo;
   PFoo:^TFoo;

function TFoo.AFoo:Char;
begin
 Result:='A';
end;

function Func1:Pointer;
begin
    PFoo:=@Foo;
    Result:=PFoo;
end;
exports
Func1;
begin
 Foo:=TFoo.Create;
end.

#include "stdafx.h"

class CFoo
{
public:
virtual char AFoo()=0;
};

typedef void* (__cdecl* PFUNC)();

int main(int argc, char* argv[])
{
printf("Hello World!\n");

HMODULE hLibrary=LoadLibrary("MyDLL.Dll");
PFUNC Func1= (PFUNC) GetProcAddress(hLibrary,"Func1");

CFoo* Foo=(CFoo*)Func1();
char ch=Foo->AFoo();
printf(&ch);

FreeLibrary(hLibrary);


return 0;
}

 TXFoo= class
 public
    function AFoo:Char;virtual;abstract;cdecl;
 end;
 TFoo= class(TXFoo)
 private
     ..........
 public
    function AFoo:Char;override;cdecl;
 end;

class CFoo
{
public:
virtual char AFoo()=0;
virtual char BFoo()=0;
char DFoo() {return 0;};
};

#ifdef BLD_PARAMBLK2
# define PB2Export __declspec( dllexport )
#else
# define PB2Export __declspec( dllimport )
#endif
class ClassDesc2 : public ClassDesc
{
private:
 Tab<ParamBlockDesc2*> pbDescs;  // parameter block descriptors
 Tab<IParamMap2*>  paramMaps;  // any current param maps
 IAutoMParamDlg*   masterMDlg;  // master material/mapParamDlg if any
 IAutoEParamDlg*   masterEDlg;  // master EffectParamDlg if any

protected:
 void SetMParamDlg(IAutoMParamDlg* dlg) { masterMDlg = dlg; }
 void SetEParamDlg(IAutoEParamDlg* dlg) { masterEDlg = dlg; }
 Tab<IParamMap2*>& GetParamMaps() { return paramMaps; }

public:
 PB2Export    ClassDesc2();
 PB2Export      ~ClassDesc2();
 PB2Export void   ResetClassParams(BOOL fileReset);
 PB2Export int   NumParamBlockDescs() { return pbDescs.Count(); }
 PB2Export ParamBlockDesc2* GetParamBlockDesc(int i) { return pbDescs[i]; }
 PB2Export ParamBlockDesc2* GetParamBlockDescByID(BlockID id);
 PB2Export ParamBlockDesc2* GetParamBlockDescByName(MCHAR* name);
 PB2Export void   AddParamBlockDesc(ParamBlockDesc2* pbd);
 PB2Export void   ClearParamBlockDescs() { pbDescs.ZeroCount(); }
 PB2Export void   BeginEditParams(IObjParam *ip, ReferenceMaker* obj, ULONG flags, Animatable *prev);
 PB2Export void   EndEditParams(IObjParam *ip, ReferenceMaker* obj, ULONG flags, Animatable *prev);
 PB2Export void   InvalidateUI();
 PB2Export void   InvalidateUI(ParamBlockDesc2* pbd);
 PB2Export void   InvalidateUI(ParamBlockDesc2* pbd, ParamID id, int tabIndex=-1); // nominated param
 PB2Export void   MakeAutoParamBlocks(ReferenceMaker* owner);
 PB2Export int   NumParamMaps() { return paramMaps.Count(); }
 PB2Export IParamMap2* GetParamMap(int i) { return paramMaps[i]; }
 PB2Export IParamMap2* GetParamMap(ParamBlockDesc2* pbd, MapID map_id = 0);
 PB2Export void   SetUserDlgProc(ParamBlockDesc2* pbd, MapID map_id, ParamMap2UserDlgProc* proc=NULL);
 inline void SetUserDlgProc(ParamBlockDesc2* pbd, ParamMap2UserDlgProc* proc=NULL) { SetUserDlgProc(pbd, 0, proc); }
 PB2Export ParamMap2UserDlgProc* GetUserDlgProc(ParamBlockDesc2* pbd, MapID map_id = 0);
 PB2Export IAutoMParamDlg* CreateParamDlgs(HWND hwMtlEdit, IMtlParams *imp, ReferenceTarget* obj);
 PB2Export IAutoMParamDlg* CreateParamDlg(BlockID id, HWND hwMtlEdit, IMtlParams *imp, ReferenceTarget* obj, MapID mapID=0);
 PB2Export IAutoEParamDlg* CreateParamDialogs(IRendParams *ip, SpecialFX* obj); // mjm - 07.06.00
 PB2Export IAutoEParamDlg* CreateParamDialog(BlockID id, IRendParams *ip, SpecialFX* obj, MapID mapID=0); // mjm - 07.06.00
 PB2Export void   MasterDlgDeleted(IAutoMParamDlg* dlg);
 PB2Export void   MasterDlgDeleted(IAutoEParamDlg* dlg);
 PB2Export IAutoMParamDlg* GetMParamDlg() { return masterMDlg; }
 PB2Export IAutoEParamDlg* GetEParamDlg() { return masterEDlg; }
 PB2Export void   RestoreRolloutState();
 PB2Export ParamID  LastNotifyParamID(ReferenceMaker* owner, IParamBlock2*& pb);
 PB2Export void   Reset(ReferenceMaker* owner, BOOL updateUI = TRUE, BOOL callSetHandlers = TRUE);
 PB2Export void   GetValidity(ReferenceMaker* owner, TimeValue t, Interval &valid);
};