type
  TStreamAdapter = class(Classes.TStreamAdapter)
  public
    function Stat(out statstg: TStatStg;
      grfStatFlag: Longint): HRESULT; override; stdcall;
  end;

{ TStreamAdapter }

function TStreamAdapter.Stat(out statstg: TStatStg;
  grfStatFlag: Integer): HRESULT;
begin
  Result := inherited Stat(statstg, grfStatFlag);
  if (Result = S_OK) and (grfStatFlag and STATFLAG_NONAME = STATFLAG_NONAME) then
    statstg.pwcsName := nil;
end;

class procedure TResources.LoadResources;
var
  hLib: HMODULE;
  hIco: HICON;
  res: TResourceStream;
  img: TGPImage;
  g: TGPGraphics;
begin
  if not Assigned(FButtons) then FButtons := TBitmap.Create;
  if not Assigned(FPanels) then FPanels := TBitmap.Create;
  if not Assigned(FShadow) then FShadow := TGPImage.Create;

  if not Assigned(FJpeg) then FJpeg := TIcon.Create;
  if not Assigned(FPng) then FPng := TIcon.Create;
  if not Assigned(FGif) then FGif := TIcon.Create;

  hLib := HInstance; //LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + sMediasDll));
  if hLib = 0 then Exit;
  try
    hIco := LoadImage(hLib, 'JPEG', IMAGE_ICON, 48, 48, LR_COLOR or LR_COPYFROMRESOURCE);
    FJpeg.Handle := CopyImage(hIco, IMAGE_ICON, 0, 0, LR_COPYDELETEORG);

    hIco := LoadImage(hLib, 'PNG', IMAGE_ICON, 48, 48, LR_COLOR or LR_COPYFROMRESOURCE);
    FPng.Handle := CopyImage(hIco, IMAGE_ICON, 0, 0, LR_COPYDELETEORG);

    hIco := LoadImage(hLib, 'GIF', IMAGE_ICON, 48, 48, LR_COLOR or LR_COPYFROMRESOURCE);
    FGif.Handle := CopyImage(hIco, IMAGE_ICON, 0, 0, LR_COPYDELETEORG);

    FShadow.LoadFromResource(hLib, 'SHADOW', 'PNG');

    FPanels.PixelFormat := pf24bit;
    img := TGPImage.Create;
    try
      img.LoadFromResource(hLib, 'PANELS', 'PNG');
      FPanels.SetSize(img.Width, img.Height);
      g := TGPGraphics.Create(FPanels.Canvas.Handle);
      try
        g.Clear(ColorToGpColor(clPanels));
        g.DrawImage(img, GpRect(0, 0, img.Width, img.Height));
      finally
        FreeAndNil(g);
      end;
    finally
      FreeAndNil(img);
    end;

    res := TResourceStream.Create(hLib, 'LISTBUTTON', 'PNG');
    try
      res.Position := 0;
      FButtons.LoadFromStream(res);
    finally
      FreeAndNil(res);
    end;
  finally
//    FreeLibrary(hLib);
  end;
end;