在win2000 下如何换系统图标(比如 Floppy disk、Open Floder、NetWork Connected、Offline etc.)? 我也想知道我去查一查MSDN 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 跟应用程序关联的文件图标我知道怎么改,比如notepad的txt文件,但是如何改A盘图标?收藏夹?程序?电池? 我找到了一个工具IconPackager很好用,建议大家去下载,不给链接了,网上找一下,到处都有 打开注册表,在HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons下建立字符串建值,名称分别为1、2、3、4……,值为图标路径及文件名。具体哪个数字管哪个系统图标还是试一下吧,或者象楼上所说的找个工具修改一下,然后再看看注册表。 同意楼上的说法///转帖Reg := TRegistry.Create; try //设置图标 Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons',True) then Reg.WriteString('3','C:\WINDOWS\SYSTEM\shell32.dll,15'); //修改icon size Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('\Control Panel\Desktop\WindowMetrics', True) then Reg.WriteString('Shell Icon Size','31'); //通知windows SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0); Reg.WriteString('Shell Icon Size','32');//改小图标时,用Reg.WriteString('Shell Icon Size','0'); SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0); finally Reg.CloseKey; Reg.Free; end; uses registry;varReg: TRegistry; 后面的Reg.WriteString,SendMessage是恢复过程,你去掉之后,再把31变成0看一看 谁有关于bpl开发的简单教程呀 散分!Delphi区各位大家新年快乐! 。 公司招了几个新人!想做个培训计划(Delphi),大家探讨一下! DELPHI使用 sql server 中的变量问题 一个高深的问题 这个错在那里啊,急 dxdbgrid 导出到 EXCLE 字数限制 关于Hint问题(急、急、急、急、急、急、急、急) 把你用过的或知道的windows外壳的接口共享一下吧! SQLServer中怎样知道操作的表所在的数据库的库名?(我在表中做触发器时要用到) 关于TBlobStream类型对象的创建问题 关于子字符串的一个小问题,高分求教
很好用,建议大家去下载,不给链接了,网上找一下,到处都有
///转帖
Reg := TRegistry.Create;
try
//设置图标
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons',True)
then Reg.WriteString('3','C:\WINDOWS\SYSTEM\shell32.dll,15'); //修改icon size
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Control Panel\Desktop\WindowMetrics', True)
then Reg.WriteString('Shell Icon Size','31');
//通知windows
SendMessage(
HWND_BROADCAST,
WM_SETTINGCHANGE,
0,
0);
Reg.WriteString('Shell Icon Size','32');//改小图标时,用Reg.WriteString('Shell Icon Size','0'); SendMessage(
HWND_BROADCAST,
WM_SETTINGCHANGE,
0,
0);
finally
Reg.CloseKey;
Reg.Free;
end;
var
Reg: TRegistry;
后面的Reg.WriteString,SendMessage是恢复过程,你去掉之后,再把31变成0看一看