| |
| |
|
Frank
Abbing |
(w) Frank Abbing
Declare newlist&,largeicon&,smallicon&,tbar&
Def ExtractIconEx(5) !"shell32","ExtractIconEx"
Cls
newlist&=Create("ImageList", 32, 32)
ExtractIconEx("setupapi.dll",1,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",8,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("main.cpl",11,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",22,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",21,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
tbar&=Create("Toolbar",%hwnd,newlist&,0,0,3000,1)
Toolbar("AddTextButton",tbar&,0,4000," Icon 1 ","")
Toolbar("AddTextButton",tbar&,1,4001," Icon 2 ","")
Toolbar("AddTextButton",tbar&,2,4002," Icon 3 ","")
Toolbar("AddTextButton",tbar&,4,3000," Icon 4 ","")
Toolbar("AddTextButton",tbar&,3,3001," Icon 5 ","")
While 1
WaitInput
Case %key=2:Break
Endwhile
End
Könnt ihr mal bitte einen Screenshot von dem Fenster machen? Bin nicht sicher, ob alle Icons überall vorhanden sind...
Danke!!! |
 |
| |
| |
| |
|
|
Rolf
Koch | | Vista zeigt folgende Icons |
|
| |
| |
| |
|
|
E.T. | Büdde...  |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 21.12.2008 ▲ |
|
| |
|
|
Paul
Glatz | | Bei mir die gleichen wie bei Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | Ok, danke!
Reicht mir schon um zu sehen, dass es so nicht geht. Unter den verschiedenen Windowsversionen wurde die Reihenfolge der Icons leider nicht eingehalten...  |
|
| |
| |
| |
|
(942)
Deutsch
English
Français
Español
Italia
