如果显示图标(20分)

  • 主题发起人 主题发起人 ityaa
  • 开始时间 开始时间
I

ityaa

Unregistered / Unconfirmed
GUEST, unregistred user!
想在DELPHI中把文件中的图标显示出来,其中图标号已知,如下:
C:/WINDOWS/DOWNLOADED PROGRAM FILES/CNSMIN.DLL,213
在IMAGE中显示,应该用extracticon,具体怎么用?
 
//uses shellapi;
DrawIcon(image.canvas.handle,10,10,
ExtractAssociatedIcon(hInstance,'C:/WINDOWS/DOWNLOADED PROGRAM FILES/CNSMIN.DLL',213));
 
楼上的不错呀!学习。
 
楼上的代码在编译时总出错,最后我自己解决了这个问题:
var Icon:TIcon;
h:HIcon;
IconIndex:word;
begin
IconIndex:=0;
Icon := TIcon.Create;
h:= ExtractIcon(HInstance, 'C:/WINDOWS/system/shell32.DLL',20);
icon.handle:=h;
DrawIcon(image1.Canvas.Handle,1,1,h);
end;
不过还是要谢谢以上各位的关注和帮助
 
后退
顶部