Hello

Is there an easy way to access the standard windows icons ?

e.g. I use this to access to standard sounds :-

qThisFolder:= GetEnv( "WINDIR") + "\MEDIA"
qThisWAV:= Directory( qThisFolder+ "\Windows Background.wav")

Is there something similar for icons ?

Thanks
Chris

> Is there an easy way to access the standard windows icons ?

try this

         oIcon := XbpIcon():New():Create()
         oIcon:load("c:\WINDOWS\system32\shell32.dll",nIcon )

         oStat := XbpStatic():new(oDlg:drawingArea,, {(i-1)*(nWide/iMax), 
(j-1) * (nHeigh/jMax) },{32,32} )
         IF oIcon:xSize > 0
            oStat:type    := XBPSTATIC_TYPE_ICON
            oStat:Caption := oIcon
         ELSE
            oStat:type    := XBPSTATIC_TYPE_TEXT
            oStat:Caption := LTRIM(STR(nIcon))
         ENDIF
         oStat:Create()
         oStat:Show()

Hello JIm.
Good morning.
Please, if exists, where can we find the list the of the numbers of <nIcon>?

Fraternally
Beling

Em 29/10/2018 16:23, Jim Lee escreveu:
>> Is there an easy way to access the standard windows icons ?
>
> try this
>
>           oIcon := XbpIcon():New():Create()
>           oIcon:load("c:\WINDOWS\system32\shell32.dll",nIcon )
>
>           oStat := XbpStatic():new(oDlg:drawingArea,, {(i-1)*(nWide/iMax),
> (j-1) * (nHeigh/jMax) },{32,32} )
>           IF oIcon:xSize > 0
>              oStat:type    := XBPSTATIC_TYPE_ICON
>              oStat:Caption := oIcon
>           ELSE
>              oStat:type    := XBPSTATIC_TYPE_TEXT
>              oStat:Caption := LTRIM(STR(nIcon))
>           ENDIF
>           oStat:Create()
>           oStat:Show()
>
>

Am 30.10.2018 um 14:50 schrieb Carlos A Beling:
> Hello JIm.
> Good morning.
> Please, if exists, where can we find the list the of the numbers of 
> <nIcon>?
> 
> Fraternally
> Beling
> 
> Em 29/10/2018 16:23, Jim Lee escreveu:
>>> Is there an easy way to access the standard windows icons ?
>>
>> try this
>>
>>           oIcon := XbpIcon():New():Create()
>>           oIcon:load("c:\WINDOWS\system32\shell32.dll",nIcon )
>>
>>           oStat := XbpStatic():new(oDlg:drawingArea,, 
>> {(i-1)*(nWide/iMax),
>> (j-1) * (nHeigh/jMax) },{32,32} )
>>           IF oIcon:xSize > 0
>>              oStat:type    := XBPSTATIC_TYPE_ICON
>>              oStat:Caption := oIcon
>>           ELSE
>>              oStat:type    := XBPSTATIC_TYPE_TEXT
>>              oStat:Caption := LTRIM(STR(nIcon))
>>           ENDIF
>>           oStat:Create()
>>           oStat:Show()
>>
>>
Google search: shell32.dll icons windows 10

Hello Wolfgang.
Good morning.
Many thanks.
I searched in Google and I found all icons in:
https://diymediahome.org/windows-icons-reference-list-with-details-locations-images/?lang=EN

Fraternally
Beling

Em 30/10/2018 12:48, Wolfgang Ciriack escreveu:
> shell32.dll icons

> https://diymediahome.org/windows-icons-reference-list-with-details-locations-images/?lang=EN

the Number are not the same which you need for XbpIcon()***
try

   oIcon := XbpIcon():New():Create()
   DO WHILE .T.
      nIcon++
      IF nIcon > 99999
           EXIT
      ENDIF
      oIcon:load(cDLL,nIcon )
      IF oIcon:xSize > 0
          EXIT
      ENDIF
  ENDDO

you will see that nIcon is different to Website but Picture are same (w7)
here i made a Demo (v1.9.355) to show icon (w7=1778 / w10 +315) from

compstui.dll    "Common Property Sheet User Interface"
DDORes.dll    "Device Category Information and Resources"
ieframe.dll    "Internet Explorer"
imageres.dll    "Windows Image Resource"})
mmcndmgr.dll   "Microsoft Management Console Node Manager"
moricons.dll     "Windows NT Setup Icon Resources"
netshell.dll     "Network Connections Shell"
pnidui.dll     "Network System Icons"
shell32.dll     "Windows Shell Common"
wmploc.dll     "Windows Media Player Resources"
pifmgr.dll     "Windows NT PIF Manager Icon Resource Library"
wpdshext.dll     "Portable Devices Shell Extension"
comres.dll     "COM+ Resources"
dmdskres.dll     "Disk Management Support SnapIn"
dsuiext.dll     "Directory Service Common UI"
mstsc.exe     "Remote Desktop Connection Client"
mstscax.dll     "Remote Desktop Services ActiveX Client"
setupapi.dll     "Windows Setup API"
shdocvw.dll     "Shell Doc Object and Control Library"
urlmon.dll     "OLE32 Extension for Win32"
wiashext.dll     "Imaging Devices Shell Folder UI"
mmres.dll     "General Audio Resources"

press on Icon to get Resource ID No

---

***
if XbpIcon:load() only show Icon for SHELL32.DLL you might have old 
XPPSYS.DLL / xbparts.prg
more in README.TXT 

Hi Jim.
Good morning.
I saved the icons as files.

Fraternally
Beling

Em 03/11/2018 23:19, Jim Lee escreveu:
>> https://diymediahome.org/windows-icons-reference-list-with-details-locations-images/?lang=EN
>
> the Number are not the same which you need for XbpIcon()***
> try
>
>     oIcon := XbpIcon():New():Create()
>     DO WHILE .T.
>        nIcon++
>        IF nIcon > 99999
>             EXIT
>        ENDIF
>        oIcon:load(cDLL,nIcon )
>        IF oIcon:xSize > 0
>            EXIT
>        ENDIF
>    ENDDO
>
> you will see that nIcon is different to Website but Picture are same (w7)
> here i made a Demo (v1.9.355) to show icon (w7=1778 / w10 +315) from
>
> compstui.dll    "Common Property Sheet User Interface"
> DDORes.dll    "Device Category Information and Resources"
> ieframe.dll    "Internet Explorer"
> imageres.dll    "Windows Image Resource"})
> mmcndmgr.dll   "Microsoft Management Console Node Manager"
> moricons.dll     "Windows NT Setup Icon Resources"
> netshell.dll     "Network Connections Shell"
> pnidui.dll     "Network System Icons"
> shell32.dll     "Windows Shell Common"
> wmploc.dll     "Windows Media Player Resources"
> pifmgr.dll     "Windows NT PIF Manager Icon Resource Library"
> wpdshext.dll     "Portable Devices Shell Extension"
> comres.dll     "COM+ Resources"
> dmdskres.dll     "Disk Management Support SnapIn"
> dsuiext.dll     "Directory Service Common UI"
> mstsc.exe     "Remote Desktop Connection Client"
> mstscax.dll     "Remote Desktop Services ActiveX Client"
> setupapi.dll     "Windows Setup API"
> shdocvw.dll     "Shell Doc Object and Control Library"
> urlmon.dll     "OLE32 Extension for Win32"
> wiashext.dll     "Imaging Devices Shell Folder UI"
> mmres.dll     "General Audio Resources"
>
> press on Icon to get Resource ID No
>
> ---
>
> ***
> if XbpIcon:load() only show Icon for SHELL32.DLL you might have old
> XPPSYS.DLL / xbparts.prg
> more in README.TXT
>
>