c:\windows\card.dll有哪些输出参数和函数???

Question

我想你主要是需要CARDs.DLL里面存的资源吧？也就是那些图片？
用LoadBitmap取出来。

Answer 1

怎么用这个函数呢,麻烦你说详细一点好吗?
Hpic:=loadlibrary('cards.dll');
images.picture.bitamap:=TBitmap(LoadBitmap(Hpic,'10.bmp');
我是这么用的,但是不行.
哪位高手指点一下吧.
感激不尽.

Answer 2

这是一个for win95的如何调用cards.dll的单元，贴出来你自己参考一下吧unit Unt_Cards;
  { CARDS.DLL - Card Display Technology }
  { notes:
    copy from newgroup Author: Jeroen Pluimers ([email protected])
    - CARDS.DLL is 16-bit in Win95!
  }
interface  uses
    WinTypes;  const
    idClubsAce                  =  1;
    idClubs2                    =  2;
    idClubs3                    =  3;
    idClubs4                    =  4;
    idClubs5                    =  5;
    idClubs6                    =  6;
    idClubs7                    =  7;
    idClubs8                    =  8;
    idClubs9                    =  9;
    idClubs10                  =  10;
    idClubsJack                =  11;
    idClubsQueen                =  12;
    idClubsKing                =  13;    idDiamondsAce              =  14;
    idDiamonds2                =  15;
    idDiamonds3                =  16;
    idDiamonds4                =  17;
    idDiamonds5                =  18;
    idDiamonds6                =  19;
    idDiamonds7                =  20;
    idDiamonds8                =  21;
    idDiamonds9                =  22;
    idDiamonds10                =  23;
    idDiamondsJack              =  24;
    idDiamondsQueen            =  25;
    idDiamondsKing              =  26;    idHeartsAce                =  27;
    idHearts2                  =  28;
    idHearts3                  =  29;
    idHearts4                  =  30;
    idHearts5                  =  31;
    idHearts6                  =  32;
    idHearts7                  =  33;
    idHearts8                  =  34;
    idHearts9                  =  35;
    idHearts10                  =  36;
    idHeartsJack                =  37;
    idHeartsQueen              =  38;
    idHeartsKing                =  39;    idSpadesAce                =  40;
    idSpades2                  =  41;
    idSpades3                  =  42;
    idSpades4                  =  43;
    idSpades5                  =  44;
    idSpades6                  =  45;
    idSpades7                  =  46;
    idSpades8                  =  47;
    idSpades9                  =  48;
    idSpades10                  =  49;
    idSpadesJack                =  50;
    idSpadesQueen              =  51;
    idSpadesKing                =  52;    RankFirst = idClubsAce;
    RankLast = idClubsKing;
      RankCount = RankLast - RankFirst + 1;    idFaceFirst = idClubsAce;
    idFaceLast  = idSpadesKing;
      FaceCount = idFaceLast - idFaceFirst;      SuitCount = 4;    idDeckEmpty                =  53; { $35  }
    idDeckPattern1              =  54; { $36  }
    idDeckPattern2              =  55; { $37  }
    idDeckRobot                =  56; { $38  }
    idDeckRoses                =  57; { $39  }
    idDeckFlowers1              =  58; { $3A  }
    idDeckFlowers2              =  59; { $3B  }
    idDeckFishes                =  60; { $3C  }
    idDeckAquarium              =  61; { $3D  }
    idDeckShell                =  62; { $3E  }
    idDeckCastle                =  63; { $3F  }
    idDeckPalmbeach            =  64; { $40  }
    idDeckCardhand              =  65; { $41  }
    { there is no card# 66 }
    idDeckCross                =  67; { $43  }
    idDeckCircle                =  68; { $44  }    idDeckFirst = idDeckEmpty;
    idDeckLast  = idDeckCardhand;
      DeckCount = idDeckLast - idDeckFirst + 1;    idDeckSpecialFirst = idDeckCross;
    idDeckSpecialLast  = idDeckCircle;
      DeckSpecialCount = idDeckSpecialLast - idDeckSpecialFirst + 1;    idAnimateCardhand1          = 678; { $02A6 }
    idAnimateCardhand2          = 679; { $02A7 }
    idAnimateCastle            = 680; { $02A8 }
    idAnimateSunSmile          = 681; { $02A9 }
    idAnimateSunSmileTongue    = 682; { $02AA }
    idAnimateRobot1            = 683; { $02AB }
    idAnimateRobot2            = 684; { $02AC }  type
    TCardId = Cardinal; { Win32 - 31-bit unsigned integer
                          Win16 - 16-bit unsigned integer }
    TCardMode = Cardinal; { Win32 - 31-bit unsigned integer
                            Win16 - 16-bit unsigned integer }
    TCoordinate = Integer; { Win32 - 32-bit signed integer
                            Win16 - 16-bit signed integer }  function  cdtInit(var CardWidth, CardHeight: TCoordinate): Bool; {$ifdef
Win32} stdcall; {$endif Win32}
  function  cdtDraw(aDC: HDC; X,Y: TCoordinate; Card: TCardId;
    Mode: TCardMode; Color: TColorRef): Bool; {$ifdef Win32} stdcall; {$endif
Win32}
  function  cdtDrawExt(aDC: HDC; X,Y,Width,Height: TCoordinate; Card: TCardId;
    Mode: TCardMode; Color: TColorRef): Bool; {$ifdef Win32} stdcall; {$endif
Win32}
  procedure cdtTerm; {$ifdef Win32} stdcall; {$endif Win32}
  function  cdtAnimate(aDC: HDC; Card: TCardId; X, Y: TCoordinate;
    AnimateIndex: Word): Bool; {$ifdef Win32} stdcall; {$endif Win32}implementationconst
{$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.

Answer 3

很感谢你贴这么多,不过我还是不懂.我想知道loadbitmap怎么用?