【delphi开源代码栏目提醒】：本文主要为网学会员提供MyAddSub.pas，希望对需要MyAddSub.pas网友有所帮助，学习一下!

    unit MyAddSub;
    interface
    type
    IMyAddSub = interface(IInvokable)
      ['{C527B88F-3F8E-1134-80e0-01A04F57B270}']
        function MyAdd(Value1,Value2: Integer): Integer; stdcall;
        function MySub(Value1,Value2: Integer): Integer; stdcall;
    end;
    implementation
    uses  InvokeRegistry;
    initialization
      InvRegistry.RegisterInterface(TypeInfo(IMyAddSub));
    end.