Froz
/
ExplorerPatcher
mirror of https://github.com/valinet/ExplorerPatcher.git
1
0
Fork 0
Code Issues Projects Releases 1 Wiki Activity
Browse Source

Explorer: Option for Mica effect and hiding window icon and/or title (thanks @MishaTY)

pull/1012/head
Valentin Radu 4 years ago
parent
69ffcd414e
commit
fe636c0626
2 changed files with 174 additions and 17 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 171
      ExplorerPatcher/dllmain.c
  2. 20
      ExplorerPatcher/settings.reg

171
ExplorerPatcher/dllmain.c
Unescape View File

@ -66,6 +66,7 @@ DWORD bWasOldTaskbarSet = FALSE; @@ -66,6 +66,7 @@ DWORD bWasOldTaskbarSet = FALSE;
DWORD bAllocConsole = FALSE;
DWORD bHideExplorerSearchBar = FALSE;
DWORD bMicaEffectOnTitlebar = FALSE;
DWORD bHideIconAndTitleInExplorer = FALSE;
DWORD bHideControlCenterButton = FALSE;
DWORD bFlyoutMenus = TRUE;
DWORD bCenterMenus = TRUE;
@ -3225,7 +3226,128 @@ BOOL WINAPI DisableImmersiveMenus_SystemParametersInfoW( @@ -3225,7 +3226,128 @@ BOOL WINAPI DisableImmersiveMenus_SystemParametersInfoW(
#pragma endregion
#pragma region "Explorer: Hide search bar, Mica effect (private), hide navigation bar"
#pragma region "Explorer: Hide search bar, hide icon and/or title, Mica effect, hide navigation bar"
inline BOOL IsRibbonEnabled(HWND hWnd)
{
return GetPropW(hWnd, (LPCWSTR)0xA91C);
}
inline BOOL ShouldApplyMica(HWND hWnd)
{
if (!IsRibbonEnabled(hWnd)) return TRUE;
return FindWindowExW(hWnd, NULL, L"Windows.UI.Composition.DesktopWindowContentBridge", NULL);
}
HRESULT ApplyMicaToExplorerTitlebar(HWND hWnd, DWORD_PTR bMicaEffectOnTitleBarOrig)
{
RECT Rect;
GetWindowRect(hWnd, &Rect);
HWND hWndRoot = GetAncestor(hWnd, GA_ROOT);
MapWindowPoints(NULL, hWndRoot, (LPPOINT)&Rect, 2);
MARGINS pMarInset;
ZeroMemory(&pMarInset, sizeof(MARGINS));
pMarInset.cyTopHeight = Rect.bottom;
wchar_t wszParentText[100];
GetWindowTextW(GetParent(hWnd), wszParentText, 100);
if (!_wcsicmp(wszParentText, L"FloatingWindow")) pMarInset.cyTopHeight = 0;
BOOL bShouldApplyMica;
if (bMicaEffectOnTitleBarOrig == 2) bShouldApplyMica = FALSE;
else bShouldApplyMica = ShouldApplyMica(GetAncestor(hWnd, GA_ROOT));
if (bShouldApplyMica)
{
DwmExtendFrameIntoClientArea(hWndRoot, &pMarInset);
SetPropW(hWndRoot, L"EP_METB", TRUE);
}
else
{
RemovePropW(hWndRoot, L"EP_METB");
}
return SetMicaMaterialForThisWindow(hWndRoot, bShouldApplyMica);
}
LRESULT RebarWindow32MicaTitlebarSubclassproc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData)
{
if (uMsg == RB_SETWINDOWTHEME && !wcsncmp(lParam, L"DarkMode", 8) && dwRefData != 2 && ShouldApplyMica(GetAncestor(hWnd, GA_ROOT)))
{
lParam = wcsstr(lParam, L"NavbarComposited");
}
else if (uMsg == WM_DESTROY)
{
RemoveWindowSubclass(hWnd, RebarWindow32MicaTitlebarSubclassproc, RebarWindow32MicaTitlebarSubclassproc);
}
return DefSubclassProc(hWnd, uMsg, wParam, lParam);
}
LRESULT ExplorerMicaTitlebarSubclassProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData)
{
if (uMsg == WM_DESTROY)
{
RemoveWindowSubclass(hWnd, ExplorerMicaTitlebarSubclassProc, ExplorerMicaTitlebarSubclassProc);
}
if (uMsg == WM_ERASEBKGND)
{
wchar_t wszParentText[100];
GetWindowTextW(GetParent(hWnd), wszParentText, 100);
if (_wcsicmp(wszParentText, L"FloatingWindow") && dwRefData != 2 && ShouldApplyMica(GetAncestor(hWnd, GA_ROOT))) return TRUE;
}
else if (uMsg == WM_WINDOWPOSCHANGED)
{
WINDOWPOS* lpWp = (WINDOWPOS*)lParam;
if (lpWp->flags & SWP_NOMOVE)
{
ApplyMicaToExplorerTitlebar(hWnd, dwRefData);
}
else
{
PostMessageW(hWnd, WM_APP, 0, 0);
}
}
else if (uMsg == WM_APP)
{
ApplyMicaToExplorerTitlebar(hWnd, dwRefData);
}
else if (uMsg == WM_PARENTNOTIFY)
{
if (LOWORD(wParam) == WM_CREATE)
{
ATOM atom = GetClassWord(lParam, GCW_ATOM);
if (atom == RegisterWindowMessageW(L"ReBarWindow32"))
{
SetWindowSubclass(lParam, RebarWindow32MicaTitlebarSubclassproc, RebarWindow32MicaTitlebarSubclassproc, dwRefData);
}
}
}
return DefSubclassProc(hWnd, uMsg, wParam, lParam);
}
LRESULT CALLBACK HideIconAndTitleInExplorerSubClass(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData)
{
if (uMsg == WM_DESTROY)
{
RemoveWindowSubclass(hWnd, HideIconAndTitleInExplorerSubClass, HideIconAndTitleInExplorerSubClass);
}
else if (uMsg == WM_PARENTNOTIFY)
{
if (LOWORD(wParam) == WM_CREATE)
{
WTA_OPTIONS ops;
ops.dwFlags = bHideIconAndTitleInExplorer;
ops.dwMask = WTNCA_NODRAWCAPTION | WTNCA_NODRAWICON;
SetWindowThemeAttribute(hWnd, WTA_NONCLIENT, &ops, sizeof(WTA_OPTIONS));
}
}
return DefSubclassProc(hWnd, uMsg, wParam, lParam);
}
HRESULT uxtheme_DwmExtendFrameIntoClientAreaHook(HWND hWnd, MARGINS* m)
{
if (GetPropW(hWnd, L"EP_METB"))
{
return S_OK;
}
return DwmExtendFrameIntoClientArea(hWnd, m);
}
static HWND(__stdcall *explorerframe_SHCreateWorkerWindowFunc)(
WNDPROC wndProc,
HWND hWndParent,
@ -3271,19 +3393,17 @@ HWND WINAPI explorerframe_SHCreateWorkerWindowHook( @@ -3271,19 +3393,17 @@ HWND WINAPI explorerframe_SHCreateWorkerWindowHook(
wnd_extra
);
}
if (dwExStyle == 0x10000 && dwStyle == 0x46000000)
if (dwExStyle == 0x10000 && dwStyle == 0x46000000 && result)
{
#ifdef USE_PRIVATE_INTERFACES
if (bMicaEffectOnTitlebar && result)
if (bHideIconAndTitleInExplorer)
{
BOOL value = TRUE;
SetPropW(hWndParent, L"NavBarGlass", HANDLE_FLAG_INHERIT);
DwmSetWindowAttribute(hWndParent, DWMWA_MICA_EFFFECT, &value, sizeof(BOOL));
if (result) SetWindowSubclass(result, ExplorerMicaTitlebarSubclassProc, ExplorerMicaTitlebarSubclassProc, 0);
SetWindowSubclass(hWndParent, HideIconAndTitleInExplorerSubClass, HideIconAndTitleInExplorerSubClass, 0);
}
#endif
if (bHideExplorerSearchBar && result)
if (bMicaEffectOnTitlebar)
{
SetWindowSubclass(result, ExplorerMicaTitlebarSubclassProc, ExplorerMicaTitlebarSubclassProc, bMicaEffectOnTitlebar);
}
if (bHideExplorerSearchBar)
{
SetWindowSubclass(hWndParent, HideExplorerSearchBarSubClass, HideExplorerSearchBarSubClass, 0);
}
@ -5642,12 +5762,38 @@ void WINAPI LoadSettings(LPARAM lParam) @@ -5642,12 +5762,38 @@ void WINAPI LoadSettings(LPARAM lParam)
bWasOldTaskbarSet = TRUE;
}
dwSize = sizeof(DWORD);
dwTemp = 0;
RegQueryValueExW(
hKey,
TEXT("MicaEffectOnTitlebar"),
0,
NULL,
&bMicaEffectOnTitlebar,
&dwTemp,
&dwSize
);
if (dwTemp != bMicaEffectOnTitlebar)
{
bMicaEffectOnTitlebar = dwTemp;
HMODULE hUxtheme = GetModuleHandleW(L"uxtheme.dll");
if (hUxtheme)
{
if (bMicaEffectOnTitlebar)
{
VnPatchDelayIAT(hUxtheme, "dwmapi.dll", "DwmExtendFrameIntoClientArea", uxtheme_DwmExtendFrameIntoClientAreaHook);
}
else
{
//VnPatchDelayIAT(hUxtheme, "dwmapi.dll", "DwmExtendFrameIntoClientArea", DwmExtendFrameIntoClientArea);
}
}
}
dwSize = sizeof(DWORD);
RegQueryValueExW(
hKey,
TEXT("HideIconAndTitleInExplorer"),
0,
NULL,
&bHideIconAndTitleInExplorer,
&dwSize
);
dwSize = sizeof(DWORD);
@ -8676,6 +8822,7 @@ DWORD Inject(BOOL bIsExplorer) @@ -8676,6 +8822,7 @@ DWORD Inject(BOOL bIsExplorer)
{
VnPatchIAT(hExplorer, "uxtheme.dll", (LPCSTR)0x7E, PeopleBand_DrawTextWithGlowHook);
}
// DwmExtendFrameIntoClientArea hooked in LoadSettings
printf("Setup uxtheme functions done\n");

20
ExplorerPatcher/settings.reg
Unescape View File

@ -154,13 +154,17 @@ @@ -154,13 +154,17 @@
;e this utility as shell extension using the option below.
;y Learn more 🡕
;https://github.com/valinet/ExplorerPatcher/wiki/Using-ExplorerPatcher-as-shell-extension
[HKEY_CURRENT_USER\Software\ExplorerPatcher]
;q
;b Register as shell extension
;"Virtualized_{D17F1E1A-5919-4427-8F89-A1A8503CA3EB}_RegisterAsShellExtension"=dword:00000000
[-HKEY_CURRENT_USER\Software\Classes\CLSID\{d93ed569-3b3e-4bff-8355-3c44f6a52bb5}\InprocServer32]
;d Disable the Windows 11 command bar *
@=""
[-HKEY_CURRENT_USER\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\InprocServer32]
;d Disable the Windows 11 context menu *
@=""
;t The following settings take effect on newly created File Explorer windows:
[HKEY_CURRENT_USER\Software\ExplorerPatcher]
;i Use immersive menus when displaying Windows 10 context menus **
"DisableImmersiveContextMenu"=dword:00000000
@ -173,12 +177,18 @@ @@ -173,12 +177,18 @@
[HKEY_CURRENT_USER\Software\ExplorerPatcher]
;b Hide search bar completely **
"HideExplorerSearchBar"=dword:00000000
;p 2
;b Mica effect on title bar
"MicaEffectOnTitlebar"=dword:00000000
;c 4 Title bar
;x 0 Show icon and title (default)
;x 1 Hide title, show icon
;x 2 Hide icon, show title
;x 3 Hide icon and title
"HideIconAndTitleInExplorer"=dword:00000000
[HKEY_CURRENT_USER\Software\ExplorerPatcher]
;b Register as shell extension
;"Virtualized_{D17F1E1A-5919-4427-8F89-A1A8503CA3EB}_RegisterAsShellExtension"=dword:00000000
;c 3 Apply Mica effect on these areas
;x 0 Let File Explorer decide (default)
;x 1 Title bar, command bar and navigation bar
;x 2 Nowhere
"MicaEffectOnTitlebar"=dword:00000000
;T Start menu

Write Preview
Loading…
Cancel
Save