Thema: Delphi Icon extrahieren

Einzelnen Beitrag anzeigen

E307

Registriert seit: 23. Feb 2006
134 Beiträge
 
Delphi 2005 Personal
 
#1

Icon extrahieren

  Alt 7. Jan 2007, 17:01
Hallo! Icons lese ich aus Dateien so aus:
Icon:=GetIconFromFile(Path,IconNumber); Wobei erst der Pfad zur Datei angegeben wird, und dann die Nummer des Icons. Bei mir liegt ein String z.B. in der Form vor: C:\WINDOWS\System32\shell32.dll,125 . Die Zahl kann ich mit
IconNumber:=StrToInt(copy(Path,length(Path)-3,length(Path))); auslesen.
Un da fängt das Problem an: Es gibt nämlich auch Strings die so aussehen: C:\WINDOWS\System32\shell32.dll,8 ; oder so: C:\WINDOWS\System32\shell32.dll,25 . Da funktioniert das Verfahren nicht mehr. Wie bekomme ich immer die korrekte Zahl?
  Mit Zitat antworten Zitat