关于Delphi的Dll编程问题，高分相赠！！！！

Question

Delphi的Dll编程的例程或者是其使用的例子

Answer 1

接口部分代码：
Inferface
type
  TCuso
  function Init(RegisterNo : string) : Boolean;Stdcall;
  function ExitFunc : boolean;Stdcall;
  function GetInfo(FeeType, Index: integer;const CMD, Dest_ID :     Pchar): TCustomizePage;Stdcall;

Answer 2

Inferface
type
  TCustomer = class
  Public
    function Init(RegisterNo : string) : Boolean;Stdcall;
    function ExitFunc : boolean;Stdcall;
    function GetInfo(FeeType, Index: integer;const CMD, Dest_ID :     Pchar): TCustomizePage;Stdcall;
  end;implementationfunction Init(RegisterNo : string) : Boolean;Stdcall;
begin
end;
function ExitFunc : boolean;Stdcall;
begin
end;function GetInfo(FeeType, Index: integer;const CMD, Dest_ID :     Pchar): TCustomizePage;Stdcall;
begin
end;Exports
   ExitFunc ,GetInfo,Init;
  end;