{$IFDEF win32}

function cdtInit; external sCardsDLL name ''''cdtInit'''';

function cdtDraw; external sCardsDLL name ''''cdtDraw'''';

function cdtDrawExt; external sCardsDLL name ''''cdtDrawExt'''';

procedure cdtTerm; external sCardsDLL name ''''cdtTerm'''';

function cdtAnimate; external sCardsDLL name ''''cdtAnimate'''';

{$ELSE}

function cdtInit; external sCardsDLL index 1;

function cdtDraw; external sCardsDLL index 2;

function cdtDrawExt; external sCardsDLL index 3;

procedure cdtTerm; external sCardsDLL index 4;

function cdtAnimate; external sCardsDLL index 5;

{$ENDIF win32}

procedure Register;

begin

  RegisterComponents(''''Standard'''', [TZFPlayCard]);

end;

{ TZFPlayCard }

{procedure TZFPlayCard.Click;

begin

  inherited;

end;

}

未完，请看下一章。

上一页  [1] [2]