Systemicons

[Frabbing]

Weiß jemand zufällig, in welcher System-Dll sich Icons verstecken für so Aktionen wie "Einfügen" oder "Kopieren"?

[Jochen2011]

hier sind ein paar DLL`s aufgeführt
Vista: In welcher dll finde ich welches Icon / Grafik ? Deskmodder Wiki

[Frabbing]

Genau die Seite hatte ich schon gesucht, dank dir!

[horsthorn]

@Frank
...und damit kannst du schnell mal nachsehen, welche Icons vorhanden sind

DECLARE anz%,zeile%,spalte%,steig%,I%,datei$

I%=0
zeile%=0
spalte%=10
steig%=50

datei$="shell32.dll" 'hier Wunsch-DLL eintragen

WINDOW 0,0-%MaxX,%MaxY
WindowTitle datei$
Anz% = @IconCount(datei$)
WhileNot (I% = anz%)
DrawIcon datei$, I%,spalte%,zeile%
DrawText spalte%,zeile%+31,STR$(I%)
INC I%
spalte%=(spalte%+steig%)
If (spalte% > (%MaxX-50))
spalte%=10
zeile% = (zeile%+steig%)
EndIf
ENDWHILE
WAITINPUT
END

[Frabbing]

Danke Horst!

Hab deinen Code noch etwas erweitert, um die Icons aller Icon-Dateien (>1 Icon) im Systemordner aufzulisten. Per Tastendruck gehts immer weiter bis zur nächsten Datei.

Set("ErrorLevel", 0)

DECLARE anz%,zeile%,spalte%,steig%,I%,datei$

WINDOW 0,0-%MaxX,%MaxY

ClearList
ChDir $syspath
AddFiles "*.???"

WhileLoop 0,%GetCount
  datei$=ListBoxItem$(&loop)
  Anz% = IconCount(datei$)
  If anz%>1
    WindowTitle datei$+" ("+Str$(&loop)+"/"+Str$(%GetCount)+")"
    Cls
    I%=0
    zeile%=0
    spalte%=10
    steig%=50
    WhileNot (I% = anz%)
      DrawIcon datei$, I%,spalte%,zeile%
      DrawText spalte%,zeile%+31,STR$(I%)
      INC I%
      spalte%=(spalte%+steig%)
      If (spalte% > (%MaxX-50))
        spalte%=10
        zeile% = (zeile%+steig%)
      EndIf
    ENDWHILE
  WaitInput
  Endif
EndWhile

END

[Frabbing]

Diese Seite zeigt sogar die Icons, Jochy: Icons, BMPs, PNGs manuell austauschen ? Deskmodder Wiki

[Jochen2011]

ich benutze immer die sevIconLibary
da finde ich schnell das passende Icon und brauch dann nur noch die
Nummer eingeben
ist ganz praktisch
bei ProgrammWeitergabe muß diese dann aber auch eingebunden werden

[horsthorn]

@Frank
Deine Erweiterung ist ja sehr schön, aber man muss sich durch die endlose Anzahl der DLL durchklicken.
Mein Code ist in der EXE-Form mit einem Loadfile-Dialog ausgerüstet, der nur DLL oder EXE-Dateien anzeigt und man kann dann die gewünschte Datei anwählen.
Schön wäre es, wenn man die Icons der jeweiligen Datei in einer Listbox anzeigen könnte (mit der Listview.dll geht es ja, aber der Aufwand ist zu hoch)
ROKO ist da ein Experte - ROKO wo bist du ?

[Jochen2011]

wodurch klicken?
ich brauch nur eine *DLL
sind doch schon schön nach Kategorien geordnet

[Frabbing]

ich benutze immer die sevIconLibary
da finde ich schnell das passende Icon und brauch dann nur noch die
Nummer eingeben
ist ganz praktisch
bei ProgrammWeitergabe muß diese dann aber auch eingebunden werden

Kommt aus dem VB-Sektor, oder?
Ich möchte in einem meiner Tools einfach ein paar Systemicons benutzen. Hat den Vorteil, dass man keine weiteren Daten benötigt. Die Icons sollten dann aber auch von XP bis 7 vorhanden sein.

Deine Erweiterung ist ja sehr schön, aber man muss sich durch die endlose Anzahl der DLL durchklicken.

Für meine derzeitige Suche reicht mir das so schon. Der Code kann natürlich beliebig erweitert und angepasst werden.

[AHT]

Besten Dank an euch beide - genau das brauchte ich im Augenblick auch .
Habe deshalb den Code noch etwas erweitert:

'#####################################################################################
'#########                         Code von AHT                             #########
'#########                geschrieben für Paules PC-Forum                    #########
'#########         nach Quelltexten von Horst horn und frank Abbing          #########
'#####################################################################################
Set("ErrorLevel", 0)
DECLARE anz%, zeile%, spalte%, steig%, I%, datei$, Listbox&, LBText$

Windowtitle "Icons in Systemdateien"
Windowstyle 31
WINDOW 0,0-%MaxX,%MaxY
Listbox&=Create("SortedListbox",%HWND,"",10,10,%MaxX-40,80)
Usecursor 2
Enablewindow listbox&,0
ClearList
ChDir $syspath
AddFiles "*.???"
WhileLoop 0,%GetCount
 datei$=ListBoxItem$(&loop)
 Anz% = IconCount(datei$)
 If anz%>1
  AddString(Listbox&,$SYSPATH+"\"+datei$+"   ("+Str$(Anz%)+")")
 endif
ENDWHILE
ClearList
ChDir $Winpath
AddFiles "*.???"
WhileLoop 0,%GetCount
 datei$=ListBoxItem$(&loop)
 Anz% = IconCount(datei$)
 If anz%>1
  AddString(Listbox&,$Winpath+"\"+datei$+"   ("+Str$(Anz%)+")")
 endif
ENDWHILE
Beep
Usecursor 0
Enablewindow listbox&,1
While 1
 Waitinput
 IF GetString$(Listbox&,GetCurSel(Listbox&))<>LBText$
  LBText$=GetString$(Listbox&,GetCurSel(Listbox&))
  Datei$=Trim$(SubStr$(LBText$,1,"("))
  Enablewindow listbox&,0
  Usecursor 2
  Showicons(Datei$)
  Enablewindow listbox&,1
  Usecursor 0
 endif
EndWhile
end
Proc Showicons
   Parameters Icondatei$
   Cls
   I%=0
   zeile%=100
   spalte%=10
   steig%=50
   Anz% = IconCount(Icondatei$)
   WhileNot (I% = anz%)
     DrawLibIcon Icondatei$, I%,spalte%,zeile%
     DrawText spalte%,zeile%+31,STR$(I%)
     INC I%
     spalte%=(spalte%+steig%)
     If (spalte% > (%MaxX-50))
       spalte%=10
       zeile% = (zeile%+steig%)
     EndIf
   ENDWHILE
endproc

[AHT]

Zitat von Frabbing

Die Icons sollten dann aber auch von XP bis 7 vorhanden sein.

Wenn du dir was ausgesucht hast, mache ich dir gerne Screenshots von den jeweiligen Icons bis Windows2000 runter. Horst wird dir da bestimmt auch helfen.

[Frabbing]

Klasse, wird ja ein richtiges Gemeinschaftsprojekt.

Ein Screenshot von...

system32/inetcpl.cpl
system32/nvwdmcpl.dll

...wäre wirklich nicht schlecht.
Hoffe, das sind auch beide Systemdateien.

[AHT]

Hier Vista (der Rest dauert etwas):
system32/inetcpl.cpl


Bei system32/nvwdmcpl.dll handelt es sich um das Controlpanel deiner Grafikkarte - die Datei ist bei mir unter Vista nicht vorhanden.

[horsthorn]

@Frank
Die Datei ist auch unter Windows-7 nicht zu finden
system32/nvwdmcpl.dll


XProfan ist aber immer für eine Überraschung gut

...ich habe bis eben nicht gewusst, daß das funktioniert:
(CSV-Datei auslesen...)

name$=TRANSLATE$(SUBSTR$(text$,1,","),CHR$(34),"")

Damit spare ich mir einen Haufen Schreiberei - Toll