Форум: "Потрепаться";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по работе с cards.dll   Найти похожие ветки 

← →
Blackweber   (2002-01-29 23:35) [2]

Бери cards32.dll из NT. И юзай следующее:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
hinstDLL: THandle;
begin
for i:=1 to 68 do begin
c[i]:=Timage.Create(self);
c[i].left:=i*75-75;
c[i].Parent:=form1;
hinstDLL := LoadLibrary("Cards32.dll");
bitmap:=tbitmap.create;
Bitmap.Handle := LoadBitmap(HInstDLL, PChar(i));
c[i].picture.bitmap:=bitmap;
end;
end;
Я тоже пробовал писать игру карточную но пока забросил.

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c