win xp的文件夹可以修改图标,请问,win xp修改后把信息放在那里的呢?
解决方案 »
- TADOQuery怎样获得子查询COMPUTE SUM(field)值
- 100分树形问题(在线等)
- 有一个页面上有很多dbedit,dbcombobox(几十个),在管理员登录时可以修改,其他身份看登录就是只读的,如何用几行代码搞定????
- 求助:怎样实现提高sql执行效率的算法?
- 進度條(與數據庫有關)
- 向各位大哥讨教!!
- image的问题
- DXDBGRID转EXCEL,由DXDBGRID的SummaryFooterField加总在EXCEL上面显示不全
- 如何设置delphi默认的字体为宋体,大小为9?
- http://www.delphibbs.com我所见过的最好的Delphi技术论坛!专业Delphi程序员的大本营!
- 如何设计mdi+dll系统?
- 请教高手-关于mediaplayer?
{$R *.dfm}
function GetSystemImageList(mImageList: TImageList): Boolean;
{ 返回系统图标到图形列表中是否成功 }
var
vHandle: THandle;
vSHFileInfo: TSHFileInfo;
begin
FillChar(vSHFileInfo, SizeOf(vSHFileInfo), 0);
vHandle := SHGetFileInfo('', 0, vSHFileInfo, SizeOf(vSHFileInfo),
SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
Result := vHandle <> 0;
mImageList.Handle := vHandle;
mImageList.ShareImages := True;
end; { GetSystemImageList }
Default={8BEBB290-52D0-11D0-B7F4-00C04FD706EC}
{8BEBB290-52D0-11D0-B7F4-00C04FD706EC}={8BEBB290-52D0-11D0-B7F4-00C04FD706EC}
{5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}
[{5984FFE0-28D4-11CF-AE66-08002B2E1262}]
WebViewTemplate.NT5=%WebDir%\ImgView.htt
[.ShellClassInfo.A]
[.ShellClassInfo.W]
InfoTip=+W1hQqFb+ckc-
[.ShellClassInfo]
[email protected],-12688
IconFile=%SystemRoot%\system32\mydocs.dll // 图标文件
IconIndex=-101 // 图标索引号