Icon aus DLL laden

[Christian Seehase]

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.