GetIcone

gistfile1.txt

function TForm1.getIcone(const icone: string): TBitmap;
var
  RS: TResourceStream;
begin
  Result := TBitmap.Create;
  if (icone<> '') and (FindResource(hInstance, PChar(icone), RT_RCDATA) <> 0) then
  begin
    try
      RS := TResourceStream.Create(hInstance, icone, RT_RCDATA);
      try
        Result.LoadfromStream(RS);
      finally
        RS.DisposeOf;
      end;
    finally
    end;
  end;
end;