显示 icon 请教:如何将包含在文件中的图标%SystemRoot%\system32\SHELL32.dll中的某一个显示在image中 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var aIcon: TIcon;begin aIcon := TIcon.Create; aIcon.Handle := ExtractIcon(Handle,'c:\Windows\system\SHELL32.dll',2); Image1.Picture.Icon := aIcon; aIcon.Free;end; 有个delphi开发的管理软件,没有源码,如何修改关键功能呢 Delphi如何用循环语句读取同一个文件夹里的所有文本文件的内容并将其写到Memo组件中 Class TIPString not found SPCOM 串口? 客户端无法运行的问题 急! 想做些实际的项目,大家指导一下 使用TImage这个控件的时候分配的象素控件如何调整 如何复制控件? Delphi程序员的月薪统计 关于开发无窗体ActiveX插件的问题, Dll文件, 在线等待, 100分全部送上 invalid use of keyword.token:month(fzrq)=2004 20分问一个 超级地B问题!!!!
var
aIcon: TIcon;
begin
aIcon := TIcon.Create;
aIcon.Handle := ExtractIcon(Handle,'c:\Windows\system\SHELL32.dll',2);
Image1.Picture.Icon := aIcon;
aIcon.Free;
end;