procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;
begin
h:=LoadLibrary('Cards.dll');
if h<>0 then
begin
Image1.Picture.Bitmap.LoadFromResourceID(h,1);
FreeLibrary(h);
end;
end;
解决方案 »
- 如何把十六进制字符串,以字节为单位,转换成十进制字符串?
- delphi2010引用别的单元
- 关于listview控件基础问题
- dbgrideh如何防止不是数值型就会出错
- dll封装子窗体(含ado)报 access violation at dress xxx in module 'project1.dll'错
- 关于serversocket的onclientread事件的问题.
- 出现这个 Incompatible types: 'PAnsiChar' and 'PWideChar' 编译错误该如何处理?
- 有关ADOQUERY数据连接的问题!
- PowerDesigner中怎么把物理模型导出为HTML的说明文件?急急急!!!!
- 请高手帮忙,一定给分。。。
- 怎样在主线程中得到线程终止事件???
- 怎样左键单击弹出快捷菜单?
win98 下的 cards.dll 。