Du meinst das LDummy + Result?
Jep, genau das.
Zitat:
Delphi-Quellcode:
function TSkinPopUpMenu.GetHIconFromFile(AFileName: PWideChar; ASmall: Boolean; AIndex: Integer)
: HIcon;
var
LInfo: TSHFileInfo;
begin
Result := 0;
If ExtractIconEx(AFileName, -1, Result, HICON(nil^), 0) <> 0 then // << denke das sollte so ausreichen
begin
If ASmall then
ExtractIconEx(AFileName, AIndex, HICON(nil^), Result, 1)
else
ExtractIconEx(AFileName, AIndex, Result, HICON(nil^), 1);
end
else
begin
SHGetFileInfo(PWideChar(ExtractFileExt(AFileName)), FILE_ATTRIBUTE_NORMAL, LInfo,
SizeOf(LInfo), IfThen(ASmall, SHGFI_SMALLICON, SHGFI_LARGEICON)
or SHGFI_ICON or SHGFI_LINKOVERLAY or SHGFI_USEFILEATTRIBUTES);
Result := LInfo.HIcon;
end;
end;
Geht's denn beim ersten Aufruf von ExtractIconEx um die Ermittlung der Anzahl von Icons? Dann solltest du keinen Parameter für ein HICON übergeben.
Vielleicht kann eine Untersuchung auf Speicherlecks nicht schaden, mit einer Software, die auch Windows Handles mit untersucht; leider weiß ich nicht, was es da gibt, was für aktuellere/neuere Delphis taugt. FastMM bzw. ReportMemoryLeaksOnShutdown meldet nicht freigegebene Icons eben nicht, wie ich selber schon in einem ähnlichen Zusammenhang festgestellt habe.
Grüße
Dalai