把图标存储在SHELL32.DLL

原创 2002年08月20日 09:17:00

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.

通过调用rundll32.exe来打开一些系统特定文件

接下来来讲讲通过调用rundll32.exe来打开一些系统特定文件,先简单介绍下rundll32.exe的功能和作用。 顾名思义,rundll32就是"执行32位的dll文件",也就是执行dll...
  • lnc2003
  • lnc2003
  • 2015年08月20日 12:03
  • 2517

启动计算机时,记事本启动并带有“[.ShellClassInfo] LocalizedResourceName=@%System

症状 在启动计算机时,记事本将启动,并且包含以下文本行的一个或多个文本文档将出现在 Windows 桌面上: [.ShellClassInfo] LocalizedResourceName=@%S...
  • angel20082008
  • angel20082008
  • 2014年02月27日 08:16
  • 21442

Win10美化之修改--白色回收站,文件夹,我的电脑等

先放图:     白色哦 首先了解win10的系统图标所在:C:\Windows\System32\images.dll 用Restorator打开后,替换其中的图标,还可以替换默认开机声音哦。...
  • Reserved_person
  • Reserved_person
  • 2016年10月08日 10:58
  • 1014

Rundll32.exe文件详解(显示我的电脑 取消自动登录)

winexec(Pchar('StrCommand'),sw_Show);  其中"StrCommand"代表以下命令之一(使用Windows中的运行不要加引号):  "rundll32 shell3...
  • whatday
  • whatday
  • 2016年08月03日 23:15
  • 1264

C#通过shell32获取文件详细备注信息

1.从系统Window/System32文件夹中Copy出 Shell32.dll Com组件 将Shell32.dll文件引用到项目中,并设置“嵌入互操作类型”为false http://blog....
  • u011127019
  • u011127019
  • 2016年08月10日 11:20
  • 1470

MySQL 支持 emoji 图标存储

让MySQL支持emoji图标存储在MySLQ中 UPDATA 和 INSERT 数据的时候,如果数据上面带有emoji图标,例如:��、��、��很容易更新活着插入不成功,导致报错。Error: E...
  • u013474436
  • u013474436
  • 2016年09月10日 17:55
  • 1637

PS将psd中的android小图标单个保存为png图标

PS将psd批量转为png。
  • LHQJ1992
  • LHQJ1992
  • 2016年01月21日 15:22
  • 1901

功能强大的ShellExecute

::ShellExecute(NULL, L"open", L"E:\\vs2010工程项目\\guiterTestTool\\guiterTestTool\\res\\GuitarTestPlatf...
  • huang578141611
  • huang578141611
  • 2014年08月28日 10:56
  • 750

MySQL支持emoji图标存储

在MySLQ中 UPDATA 和 INSERT 数据的时候,如果数据上面带有emoji图标,很容易更新或者插入不成功,导致报错。Error: ER_TRUNCATED_WRONG_VALUE_FOR_...
  • kid_2412
  • kid_2412
  • 2016年09月13日 09:43
  • 333

vc编译warning LNK4089和链接警告LNK4098解决方法

一、warning LNK4089 vc编译时Debug版本下没问题,release版本下出现如下警告:  LINK : warning LNK4089: all references to “O...
  • laogaoAV
  • laogaoAV
  • 2013年01月26日 16:42
  • 4091
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:把图标存储在SHELL32.DLL
举报原因:
原因补充:

(最多只允许输入30个字)