安基网 首页 安全 安全学院 查看内容

把图标存储在SHELL32.DLL

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


免责声明:本站系公益性非盈利IT技术普及网,本文由投稿者转载自互联网的公开文章,文末均已注明出处,其内容和图片版权归原网站或作者所有,文中所述不代表本站观点,若有无意侵权或转载不当之处请从网站右下角联系我们处理,谢谢合作!

摘要: 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培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本站系公益性非盈利IT技术普及网,本文由投稿者转载自互联网的公开文章,文末均已注明出处,其内容和图片版权归原网站或作者所有,文中所述不代表本站观点,若有无意侵权或转载不当之处请从网站右下角联系我们处理,谢谢合作!


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论

 最新
返回顶部