为了顺应当前形势和更好的发展,黑基网已于9月19日正式更名为【安基网】,域名更换为www.safebase.cn,请卸载旧的APP并安装新的APP,给您带来不便,敬请理解!谢谢

黑基Web安全攻防班
安基网 首页 IT技术 安全攻防 查看内容

把图标存储在SHELL32.DLL

2009-5-19 11:18| 投稿: security

摘要: uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,shellapi,Dialogs; type...
uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,shellapi,Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   DesktopIcon: TimageList; // 做一个你喜欢的图象列表 implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); Var Ico: TIcon;     Sfi: Tshfileinfo;     I  : Integer; begin //分配一个句柄给图象列表  DesktopIcon:= TImageList.Create(Self); DesktopIcon.Handle := SHGetFileInfo(', 0, sfi, SizeOf(TSHFileInfo),      shGFI_SYSICONINDEX or SHGFI_SMALLICON); DesktopIcon.ShareImages := TRUE; For I:=0 to DesktopIcon.count -1 do   Begin   Ico := Ticon.Create;   DesktopIcon.GetIcon(I,Ico);   Ico.SaveToFile('c:\icons\'+inttostr(i)+'.ico');   Ico.Free;   End; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Desktopicon.free; end; end.  

小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文由投稿者转载自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,让我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论

最新

返回顶部