如何从cards.dll中提取图片到Timage中？(100分)

其实有两个问题！
1，如何提取*.dll 中的图？
2，如何输出图片到timage中去！
请教高手！
最好有一段源程序！

全文搜索 我进去看了！不过没有看明白！好像都很模糊！我事菜鸟！请 高手们指教啊！

在线等待！

啊，有很多提取图片的程序。
记得以前我只是用了一个api函数，你找一下帮助吧。

谢谢你！我来看看！

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
private
h: thandle;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
h := LoadLibrary('cards.dll');

end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
bmp: TBitmap;
i: integer;
begin
i := 1 + acol + ARow * StringGrid1.ColCount;
if i <= 68 then
begin
bmp := TBitmap.Create;

bmp.LoadFromResourceID(h, i);
StringGrid1.Canvas.Draw(rect.Left, rect.Top, bmp);
freeandnil(bmp);
end;
end;

end.

object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object StringGrid1: TStringGrid
Left = 56
Top = 8
Width = 617
Height = 393
ColCount = 6
DefaultColWidth = 80
DefaultRowHeight = 100
FixedCols = 0
RowCount = 9
FixedRows = 0
TabOrder = 0
OnDrawCell = StringGrid1DrawCell
end
end

不行啊 ！在帮助里找不到啊！

http://www.efile.com.cn/efile/dfw@97546/card.exe

谢谢！我来测试一下！还有高手吗？最好button。onclick事件的！

1。你如果只想要poke牌的图片我可以发给你
2。如果你想了解怎么从动态库中读资源，我觉得hfghfghfg的方法可行

begin
h := LoadLibrary('cards.dll');
if Image1.Picture.Bitmap = nil then
Image1.Picture.Bitmap := TBitmap.Create;
Image1.Picture.Bitmap.LoadFromResourceID(h, 1);

强烈感谢诸位高手！
已经散分了！
hfghfghfg，忠心谢谢你！感谢你这么热情！已经测试了！
yostgxf，谢谢你，我只给你10 分不要嫌少！以后我还有请教的！

这里真好！～

如果你只是要用dll里面的图片,可以用EXESCOPE等资源编辑工具将它们导出来