cardlib.pas

这是一个扑克牌游戏。 1.抓有黑桃7 的玩家首先出黑桃7。 2.然后按逆时针方向出牌。每位玩家依次出牌

{
windows扑克牌dll调用

win98,winNT都适用,详见Cards.dll相关文档
牌图像索引 0-51[A（草花、方块、红桃、黑桃），2，…，K]；53-65牌背面；

黄文林 2005-11-27
}
unit CardLib;

interface

uses
  Windows;    

  function cdtInit(var CardWidth, CardHeight: Integer): Bool; {$IFDEF Win32} stdcall; {$ENDIF Win32}
  function cdtDraw(aDC: HDC; X, Y, Card, Mode: Integer; Color: TColorRef): Bool; {$IFDEF Win32} stdcall; {$endif Win32}
  function cdtDrawExt(aDC: HDC; X, Y, Width, Height, Card, Mode: Integer; Color: TColorRef): Bool; {$IFDEF Win32} stdcall; {$ENDIF Win32}
  procedure cdtTerm; {$IFDEF Win32} stdcall; {$ENDIF Win32}
  function cdtAnimate(aDC: HDC; Card, X, Y: Integer; AnimateIndex: Word): Bool; {$IFDEF Win32} stdcall; {$ENDIF Win32}

implementation

const
{$IFDEF win32}
  sCardsDLL = 'CARDS.DLL';
{$ELSE}
  sCardsDLL = 'CARDS';
{$ENDIF win32}

{$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}

end.