{$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] 没有相关教程
|