Zitat:
Die Intention der Funktion GetHIcon insgesamt ist mir schon klar. Es ging mir nur um den darin enthaltenen Aufruf if ExtractIconEx(..., -1, ...) <> 0. Das eigentliche Extrahieren der Icons erfolgt ja erst danach in einem weiteren Aufruf von ExtractIconEx (sofern der erste Aufruf klappte).
Sorry hatte dich nicht richtig verstanden habe es oben editiert.. aber hier nochmal..
If ExtractIconEx(AFileName, -1, HICON(nil^), HICON(nil^), 0) <> 0 then
oder besser so!
If ExtractIconEx(AFileName, -1, -1, -1) <> 0 then
gruss