Тема: HTA: Иконки из shell32.dll в ImageList Activex control
Уважаемые форумчане, возможно ли передать ссылку на картинку (иконку) из shell32.dll в imagelist? Сам HTA вполне нормально относится к псевдопротоколу res://, но контрол, в частности LoadPicture() не хочет его понимать. Может надо через GetObject? Ниже код примера:
<HTML>
<HEAD>
<META HTTP-EQUIV=Content-Type content='text/html;charset=windows-1251'>
<TITLE>Пример ImageList в HTA</TITLE>
<HTA:APPLICATION ID="ImgList"
ApplicationName = "ImgList_HTA"
ICON="res://shell32.dll/2/230"
BORDER = "thin"
INNERBORDER = "no"
CONTEXTMENU = "no"
MAXIMIZEBUTTON = "no"
MinimizeButton = "no"
SysMenu = "yes"
SELECTION = "no"
SHOWINTASKBAR = "yes"
SCROLL = "no"
SINGLEINSTANCE="yes"
WindowState = "Normal"
/>
<object classid="clsid:2C247F23-8591-11D1-B16A-00C0F0283628"
id="ImageList" width="32" height="32">
<param name="_ExtentX" value="946">
<param name="_ExtentY" value="946">
<param name="BackColor" value="-2147483643">
<param name="ImageWidth" value="16">
<param name="ImageHeight" value="16">
<param name="MaskColor" value="12632256">
<param name="UseMaskColor" value="-1">
<param name="_Version" value="393216">
</object>
<SCRIPT language = "VBScript">
'ImageList.ListImages.Add ,,LoadPicture("D:\Images\1.ico")
'ImageList.ListImages.Add ,,LoadPicture(GetObject("res://C:\WINDOWS\system32\shell32.dll/2/230"))
ImageList.ListImages.Add ,,LoadPicture("res://C:\WINDOWS\system32\shell32.dll/2/230")
</SCRIPT>
</HEAD>
<BODY bgcolor = "#EEEEEE">
<TABLE style = width:100%>
<TR><TD><IMG src="res://shell32.dll/2/230"></TD></TR>
</TABLE>
</BODY>
</HTML>
