[xteam777]

Нашел в сети код, он выдает кусок темы, где есть нужные кнопки:

Код:

function EnumStreamProc(hModule: HMODULE; AType, AName: PChar; Params: LPARAM): BOOL; stdcall;
var
  Id: NativeInt;
begin
  PNativeInt(Params)^ := Integer(AName);
  Result := False;
end;

function GetStyleResourceId(AModule: HMODULE): Integer;
begin
  Result := 0;
  EnumResourceNames(AMODULE, 'STREAM', @EnumStreamProc, LPARAM(@Result));
end;


procedure TForm18.Button2Click(Sender: TObject);
var
  hLib: HMODULE;
  ResId: Integer;
  RS: TResourceStream;
  Png: TPngImage;
begin
  hLib := LoadLibraryEx(PChar('C:\Windows\Resources\Themes\Aero\aero.msstyles'),
                        0, LOAD_LIBRARY_AS_DATAFILE);
  ResId := GetStyleResourceId(hLib);
  RS := TResourceStream.CreateFromID(hLib, ResId, 'STREAM');
  Png := TPngImage.Create;
  Png.LoadFromStream(RS);
  Image1.Picture.Assign(Png);
  Image1.Picture.SaveToFile('Win10Theme.bmp');
end;

Значит, все таки нужные изображения есть. Вопрос как и оттуда достать