L
liminyes
Unregistered / Unconfirmed
GUEST, unregistred user!
我试着把图片放在DLL里面，可是在程序里怎么读不出来？
procedure TForm1.Button1Click(Sender: TObject);
var h:thandle;
b:tbitmap;
begin
h:=loadlibrary(pchar('aa.dll'));
if h <> 0 then
begin
b:=tbitmap.Create ;
b.handle:=loadbitmap(h,pchar('1'));
image1.Picture.Graphic:=b;
end;
end;
这是怎么回事？我的DLL应该没有问题呀，谢谢 了！
procedure TForm1.Button1Click(Sender: TObject);
var h:thandle;
b:tbitmap;
begin
h:=loadlibrary(pchar('aa.dll'));
if h <> 0 then
begin
b:=tbitmap.Create ;
b.handle:=loadbitmap(h,pchar('1'));
image1.Picture.Graphic:=b;
end;
end;
这是怎么回事？我的DLL应该没有问题呀，谢谢 了！