Icon extrahieren

[E307]

Hallo! Icons lese ich aus Dateien so aus:

Delphi-Quellcode:

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

Delphi-Quellcode:

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?

[FAlter]

Hi,

Delphi-Quellcode:

function GetIconFromFile2(const Path: String): TIcon;
var
  KommaPos, Len, IconNumber: Integer;
begin
  Len := Length(Path);
  KommaPos := LastDelimiter(',', Path);
  IconNumber := StrToInt(copy(Path,KommaPos + 1, Len));
  Result := GetIconFromFile(Copy(Path, 1, KommaPos - 1), IconNumber);
end;

Not Tested - No Warranty (ohne Gewähr)

Mfg
FAlter

[E307]

:bounce1: Super! Jetzt gibt es überhaupt keine Probleme mehr! Vielen Dank für den Code! :thumb: