Moin Homer,
wenn ich das so mache, kann ich das Icon, was ich zurückerhalten will auch als Parameter übergeben:
Delphi-Quellcode:
function (const AsIconname : string;const AicResult : TIcon) : boolean; // true = Success
var
h :HINST;
begin
Result := false;
h := LoadLibrary('image.dll');
try
if h <> 0 then begin
AicResult.Handle := LoadIcon(h, PChar(AsIconname));
Result := true;
end;
finally
FreeLibrary(h);
end;
end;
Die Funktion lässt sich dann nur nicht so schön einbinden, aber ich habe eine bessere Übersicht über die belegten Resourcen.