Icon aus DLL laden

[Christian Seehase]

Moin Homer,

hast Du auch schon mal die Kurzform probiert?

Delphi-Quellcode:

Function Icon_Lesen_GU(icon_nr_s : String) : TIcon;

var
  h :HINST;

begin
  Result := nil;
  h := LoadLibrary('image.dll');
  try
    if h <> 0 then
    begin
      Result        := TIcon.Create;
      Result.Handle := LoadIcon(h, PChar(icon_nr_s));
    end;
  finally
    FreeLibrary(h);
  end;
end;

Für Bitmaps gibt's auch LoadBitmap.