Windows 10关闭，最小化和最大化按钮

绘制主题按钮我使用此代码：

var
  h: HTHEME;
begin
  if UseThemes then begin
    SetWindowTheme(Handle, 'explorer', nil);
    h := OpenThemeData(Handle, 'WINDOW');
    if h <> 0 then
    try
      DrawThemeBackground(h, Canvas.Handle, WP_CLOSEBUTTON, GetAeroState, ClientRect, nil);
    finally
      CloseThemeData(h);
    end;
  end
  else
    DrawFrameControl(Canvas.Handle, ClientRect, DFC_CAPTION, DFCS_CAPTIONCLOSE or GetClassicState)
end;

此代码可以正常工作，但从Windows 7主题开始，即使在Windows 8或10上，绘制按钮看起来也是如此。可以使用Windows 10或8主题绘制关闭按钮？

---

解决此问题的方法之一：手动解析活动* .msstyles文件。 通常这是aero.msstyles。 存储在STREAM部分中的不同窗口控件的位图。 对于Windows 7 ResId = 971，Windows 8：Id = 1060，Windows 10：Id = 1194。但这是手动工作，此位图不同。

更新：

我发现，即使对于一个Windows版本（测试版本为8），我们也可以为此Bitmap（png图像）提供不同的资源ID值，现在我可以提供代码以在任何Windows上获取资源ID（已测试过7 ，8.10）：

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;

var
  hLib: HMODULE;
  ResId: Integer;
  RS: TResourceStream;
  Png: TPngImage;

begin
  hLib := LoadLibraryEx(PChar(GetWindowsPath + 'ResourcesThemesAeroaero.msstyles'), 
                        0, LOAD_LIBRARY_AS_DATAFILE);
  ResId := GetStyleResourceId(hLib);
  RS := TResourceStream.CreateFromID(hLib, ResId, 'STREAM');
  Png := TPngImage.Create;
  Png.LoadFromStream(RS);  
  ...
end;

更新2：

使用官方api发现未被黑客入侵的方法：

var
  h: HTHEME;
  Rect: TRect;
  PBuf, PPBuf: Pointer;
  BufSize: Cardinal;
  Buf: array[0..1024*1024] of Byte;


h := OpenThemeData(Handle, 'DWMWINDOW');
if h <> 0 then
try
  GetThemeRect(h, WP_MINCAPTION, MNCS_ACTIVE, TMT_ATLASRECT, Rect);
  PBuf := @Buf[0];
  PPBuf := @PBuf;
  GetThemeStream(h, WP_MINCAPTION, MNCS_ACTIVE, TMT_ATLASRECT, PBuf, BufSize, hInstance);
finally
  CloseThemeData(h);
end;

我可以得到最小化按钮的矩形，但不明白如何使用GetThemeStream？ 应该使用PBuf还是PPBuf？

---

从主题获取位图的可行解决方案：

var
  h: HTHEME;
  Rect: TRect;
  BufSize: Cardinal;    

h := OpenThemeData(Handle, 'DWMWINDOW');
if h <> 0 then
try
  GetThemeRect(h, WP_MINCAPTION, MNCS_ACTIVE, TMT_ATLASRECT, Rect);
  ...
  GetThemeStream(...);
finally
  CloseThemeData(h);
end;

以及如何使用GetThemeStream在这里描述：GetThemeStream的使用，非常感谢程序Vista风格生成器的作者Andreas Verhoeven

链接地址: http://www.djcxy.com/p/30783.html

上一篇: Windows 10 Close, Minimize and Maximize buttons

下一篇: ZF2, Oracle, SlmQueueDoctrine, ClearObjectManagerStrategy is not working