|
Post by powerplayer on Aug 14, 2019 12:36:49 GMT -8
no ahk for contextmenu?
|
|
Eleven
Freshman Member
Posts: 25
OS: Windows 7 Pro (ESU)
Theme: Windows Classic
CPU: Intel i7-9700K @ 3.70GHz
RAM: 64 GB (16GB x 4)
GPU: NVIDIA GeForce RTX 2080
|
Post by Eleven on Jul 26, 2020 5:59:23 GMT -8
That new script worked great, thanks again. As for the address bar, it's Quero Toolbar. It's skinnable, works on both Internet Explorer and File Explorer, free, and if someone wants to make changes to it (not asking, just saying!) the source code is available. I remember someone on here making mention of it not being good because it displays folders such as "My Computer" and Control Panel by their CLSID numbers instead; I can live with that, because otherwise, it's fantastic and does the job perfectly. Quero Toolbar: www.quero.at/Theme I made by editing an existing one with Resource Hacker: drive.google.com/open?id=15a71DWrRyVgPctRHzgRQZFRy5BHSkUxtPlease re-upload your Quero Toolbar theme as the original link is dead. Thank you
|
|
|
Post by The Jackal on Jul 26, 2020 13:37:13 GMT -8
That new script worked great, thanks again. As for the address bar, it's Quero Toolbar. It's skinnable, works on both Internet Explorer and File Explorer, free, and if someone wants to make changes to it (not asking, just saying!) the source code is available. I remember someone on here making mention of it not being good because it displays folders such as "My Computer" and Control Panel by their CLSID numbers instead; I can live with that, because otherwise, it's fantastic and does the job perfectly. Quero Toolbar: www.quero.at/Theme I made by editing an existing one with Resource Hacker: drive.google.com/open?id=15a71DWrRyVgPctRHzgRQZFRy5BHSkUxtPlease re-upload your Quero Toolbar theme as the original link is dead. Thank you Still works on my end, but I've attached it to this post for ya.
|
|
Eleven
Freshman Member
Posts: 25
OS: Windows 7 Pro (ESU)
Theme: Windows Classic
CPU: Intel i7-9700K @ 3.70GHz
RAM: 64 GB (16GB x 4)
GPU: NVIDIA GeForce RTX 2080
|
Post by Eleven on Jul 30, 2020 22:18:12 GMT -8
Please re-upload your Quero Toolbar theme as the original link is dead. Thank you Still works on my end, but I've attached it to this post for ya. Thank you.
|
|
Eleven
Freshman Member
Posts: 25
OS: Windows 7 Pro (ESU)
Theme: Windows Classic
CPU: Intel i7-9700K @ 3.70GHz
RAM: 64 GB (16GB x 4)
GPU: NVIDIA GeForce RTX 2080
|
Post by Eleven on Jul 30, 2020 23:24:41 GMT -8
Please re-upload your Quero Toolbar theme as the original link is dead. Thank you Still works on my end, but I've attached it to this post for ya. Maybe it's my setup but when I disable the Quero Button the shortcut Alt+Q does not work to get back into the Quero settings. I tried un-installing and re-installing Quero it but the button is still hidden.
|
|
|
Post by The Jackal on Aug 3, 2020 10:37:30 GMT -8
Still works on my end, but I've attached it to this post for ya. Maybe it's my setup but when I disable the Quero Button the shortcut Alt+Q does not work to get back into the Quero settings. I tried un-installing and re-installing Quero it but the button is still hidden. Use Internet Explorer and try using ALT+Q in there, that's what Quero was really designed for. Keyboard shortcuts are disabled when using Quero in FIle Explorer, one of the side effects of using it, but they work fine in Internet Explorer.
|
|
|
Post by travis on Sept 20, 2020 16:30:16 GMT -8
I did some more messing around with this, and I came up with something pretty decent that's actually usable. Here's what it looks like: And here's the code for it: #NoTrayIcon #NoEnv Gui +LastFound hWnd := WinExist() SetControlDelay, -1
DllCall( "RegisterShellHookWindow", UInt,hWnd ) MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" ) OnMessage( MsgNum, "ShellMessage" ) Return
ShellMessage(wParam,lParam) { If (wParam = 1 or wParam = 6) ; HSHELL_WINDOWCREATED := 1 { WinGetClass, WinClass, ahk_id %lParam%
if (WinClass = "CabinetWClass") {
Control, Style, +0x800000, ReBarWindow322, ahk_id %lParam% Control, Style, +0x00000400, ReBarWindow322, ahk_id %lParam% Control, Style, -0x0000200, ReBarWindow322, ahk_id %lParam%
ControlGetPos,,,,h, ReBarWindow322, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h+1, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h, ahk_id %lParam%
} } }
As mentioned previously, this is heavily based on anixx 's ClientEdge script, and it works in a very similar manner. Feel free to let me know if there are any issues with it. Another 2 years late! But how did you get the drives grouped like that? Mines look like this.
|
|
|
Post by ihatemetro on Sept 21, 2020 7:50:00 GMT -8
I did some more messing around with this, and I came up with something pretty decent that's actually usable. Here's what it looks like: And here's the code for it: #NoTrayIcon #NoEnv Gui +LastFound hWnd := WinExist() SetControlDelay, -1
DllCall( "RegisterShellHookWindow", UInt,hWnd ) MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" ) OnMessage( MsgNum, "ShellMessage" ) Return
ShellMessage(wParam,lParam) { If (wParam = 1 or wParam = 6) ; HSHELL_WINDOWCREATED := 1 { WinGetClass, WinClass, ahk_id %lParam%
if (WinClass = "CabinetWClass") {
Control, Style, +0x800000, ReBarWindow322, ahk_id %lParam% Control, Style, +0x00000400, ReBarWindow322, ahk_id %lParam% Control, Style, -0x0000200, ReBarWindow322, ahk_id %lParam%
ControlGetPos,,,,h, ReBarWindow322, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h+1, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h, ahk_id %lParam%
} } }
As mentioned previously, this is heavily based on anixx 's ClientEdge script, and it works in a very similar manner. Feel free to let me know if there are any issues with it. Another 2 years late! But how did you get the drives grouped like that? Mines look like this. www.winclassic.net/thread/126/make-windows-explorer-listview-controlI recommend the Folder Options X way to do this.
|
|
|
Post by travis on Oct 27, 2020 14:38:17 GMT -8
I did some more messing around with this, and I came up with something pretty decent that's actually usable. Here's what it looks like: Bump. Can I have the Explorer navigation buttons? Also, how did you changed the search and refresh icons in the Address/Search Bar?
|
|
|
Post by R.O.B. on Oct 27, 2020 19:46:37 GMT -8
I did some more messing around with this, and I came up with something pretty decent that's actually usable. Here's what it looks like: Bump. Can I have the Explorer navigation buttons? Also, how did you changed the search and refresh icons in the Address/Search Bar?
Everything is in ExplorerFrame.dll. I don't seem to have the bitmaps for the search/refresh buttons anymore for some reason, but I do have the nave buttons. Here you go: Explorer-Nav-Buttons.zip (1.24 KB)
|
|
|
Post by travis on Oct 27, 2020 20:09:50 GMT -8
Bump. Can I have the Explorer navigation buttons? Also, how did you changed the search and refresh icons in the Address/Search Bar?
Everything is in ExplorerFrame.dll. I don't seem to have the bitmaps for the search/refresh buttons anymore for some reason, but I do have the nave buttons. Here you go: View AttachmentThank you.
|
|
|
Post by s34642542 on Dec 26, 2020 11:49:09 GMT -8
Using this in 8.1 seems to have an issue where the top of the Explorer window has a white line across it, instead of a grey one like it should have, resulting in a 2 pixel tall white line at the top of each Explorer window.
Any ideas?
|
|
|
Post by TechSalt on Feb 6, 2021 5:01:41 GMT -8
Old thread, i know but how do i get the toolbars to only show the lines? I am trying to make an NT 4.0 style explorer.
|
|
|
Post by anixx on Feb 6, 2021 8:23:33 GMT -8
Using this in 8.1 seems to have an issue where the top of the Explorer window has a white line across it, instead of a grey one like it should have, resulting in a 2 pixel tall white line at the top of each Explorer window.
Any ideas?
I never used the classic toolbar script, because I preferred the Win95 appearance to that of W98, but I've just tried it and it works well. P.S. Oh, no! I've noticed it often produces glitched result!
|
|
|
Post by anixx on Feb 6, 2021 8:44:56 GMT -8
Still works on my end, but I've attached it to this post for ya. Maybe it's my setup but when I disable the Quero Button the shortcut Alt+Q does not work to get back into the Quero settings. I tried un-installing and re-installing Quero it but the button is still hidden. Well, I incorporated the lines into my main mycombine script and now it works well. #NoTrayIcon #NoEnv #SingleInstance, Force Gui +LastFound hWnd := WinExist() SetControlDelay, -1 SetBatchLines -1 DllCall( "RegisterShellHookWindow", UInt,hWnd ) MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" ) OnMessage( MsgNum, "ShellMessage" ) Return ShellMessage(wParam,lParam) { If (wParam = 1 or wParam = 6 or wParam=4) { WinGetClass, WinClass, ahk_id %lParam% If (wParam = 1) { If (WinClass = "NativeHWNDHost") { accentStructSize := VarSetCapacity(AccentPolicy, 4*4, 0) NumPut(1, AccentPolicy, 0, "UInt") padding := A_PtrSize == 8 ? 4 : 0 VarSetCapacity(WindowCompositionAttributeData, 4 + padding + A_PtrSize + 4 + padding) NumPut(19, WindowCompositionAttributeData, 0, "UInt") NumPut(&AccentPolicy, WindowCompositionAttributeData, 4 + padding, "Ptr") NumPut(accentStructSize, WindowCompositionAttributeData, 4 + padding + A_PtrSize, "UInt") DllCall("SetWindowCompositionAttribute", "Ptr", lParam, "Ptr", &WindowCompositionAttributeData) } } if (WinClass = "CabinetWClass") { Control, Style, +0x800000, ReBarWindow322, ahk_id %lParam% Control, Style, +0x00000400, ReBarWindow322, ahk_id %lParam%
ControlGetPos,,,,h, ReBarWindow322, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h+1, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h, ahk_id %lParam% Control, ExStyle, +0x200, FolderView, ahk_id %lParam% Control, ExStyle, +0x200, SysListView321, ahk_id %lParam% Control, ExStyle, +0x200, SysTreeView321, ahk_id %lParam% SendMessage, 0x108F,,,FolderView, ahk_id %lParam%
If (ErrorLevel=0x2){ Control, Style, +0x2, FolderView, ahk_id %lParam% Control, Style, +0x2, SysListView321, ahk_id %lParam% Control, Style, -0x2, FolderView, ahk_id %lParam% Control, Style, -0x2, SysListView321, ahk_id %lParam% } ControlGetPos, ,y1,,ha,ReBarWindow321, ahk_id %lParam% SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% } if (WinClass = "NotebookFrame") { Control, ExStyle, +0x200, NotebookContent1, ahk_id %lParam% WinGetPos, , , , h, ahk_id %lParam% WinMove, ahk_id %lParam%,,,,,h-1 }
} }
|
|
|
Post by anixx on Feb 6, 2021 9:23:58 GMT -8
|
|
|
Post by TechSalt on Feb 6, 2021 11:01:56 GMT -8
Not exactly what i asked for, but i already figured out how to get what i wanted: Still thanks! :D
|
|
veselcraft
Freshman Member
Posts: 46
OS: Windows 10 LTSB
Theme: Win 2k
|
Post by veselcraft on Aug 21, 2022 15:07:54 GMT -8
Maybe it's my setup but when I disable the Quero Button the shortcut Alt+Q does not work to get back into the Quero settings. I tried un-installing and re-installing Quero it but the button is still hidden. Well, I incorporated the lines into my main mycombine script and now it works well. #NoTrayIcon #NoEnv #SingleInstance, Force Gui +LastFound hWnd := WinExist() SetControlDelay, -1 SetBatchLines -1 DllCall( "RegisterShellHookWindow", UInt,hWnd ) MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" ) OnMessage( MsgNum, "ShellMessage" ) Return ShellMessage(wParam,lParam) { If (wParam = 1 or wParam = 6 or wParam=4) { WinGetClass, WinClass, ahk_id %lParam% If (wParam = 1) { If (WinClass = "NativeHWNDHost") { accentStructSize := VarSetCapacity(AccentPolicy, 4*4, 0) NumPut(1, AccentPolicy, 0, "UInt") padding := A_PtrSize == 8 ? 4 : 0 VarSetCapacity(WindowCompositionAttributeData, 4 + padding + A_PtrSize + 4 + padding) NumPut(19, WindowCompositionAttributeData, 0, "UInt") NumPut(&AccentPolicy, WindowCompositionAttributeData, 4 + padding, "Ptr") NumPut(accentStructSize, WindowCompositionAttributeData, 4 + padding + A_PtrSize, "UInt") DllCall("SetWindowCompositionAttribute", "Ptr", lParam, "Ptr", &WindowCompositionAttributeData) } } if (WinClass = "CabinetWClass") { Control, Style, +0x800000, ReBarWindow322, ahk_id %lParam% Control, Style, +0x00000400, ReBarWindow322, ahk_id %lParam%
ControlGetPos,,,,h, ReBarWindow322, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h+1, ahk_id %lParam% ControlMove, ReBarWindow322,,,,h, ahk_id %lParam% Control, ExStyle, +0x200, FolderView, ahk_id %lParam% Control, ExStyle, +0x200, SysListView321, ahk_id %lParam% Control, ExStyle, +0x200, SysTreeView321, ahk_id %lParam% SendMessage, 0x108F,,,FolderView, ahk_id %lParam%
If (ErrorLevel=0x2){ Control, Style, +0x2, FolderView, ahk_id %lParam% Control, Style, +0x2, SysListView321, ahk_id %lParam% Control, Style, -0x2, FolderView, ahk_id %lParam% Control, Style, -0x2, SysListView321, ahk_id %lParam% } ControlGetPos, ,y1,,ha,ReBarWindow321, ahk_id %lParam% SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% WinSet, Redraw,, ahk_id %lParam% Sleep, 100 SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam% Control, Hide,, WorkerW1, ahk_id %lParam% Control, Hide,, ReBarWindow321, ahk_id %lParam% ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,0, ahk_id %lParam% } if (WinClass = "NotebookFrame") { Control, ExStyle, +0x200, NotebookContent1, ahk_id %lParam% WinGetPos, , , , h, ahk_id %lParam% WinMove, ahk_id %lParam%,,,,,h-1 }
} }
Doesn't work on Windows 11. It's just a white space
|
|
veselcraft
Freshman Member
Posts: 46
OS: Windows 10 LTSB
Theme: Win 2k
|
Post by veselcraft on Aug 21, 2022 15:15:08 GMT -8
There's updated script for Windows 11:
#NoTrayIcon #NoEnv Gui +LastFound hWnd := WinExist() SetControlDelay, -1
DllCall( "RegisterShellHookWindow", UInt,hWnd ) MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" ) OnMessage( MsgNum, "ShellMessage" ) Return
ShellMessage(wParam,lParam) { If (wParam = 1 or wParam = 6) ; HSHELL_WINDOWCREATED := 1 { WinGetClass, WinClass, ahk_id %lParam%
if (WinClass = "CabinetWClass") {
Control, Style, +0x800000, ReBarWindow321, ahk_id %lParam% Control, Style, +0x00000400, ReBarWindow321, ahk_id %lParam% Control, Style, -0x0000200, ReBarWindow321, ahk_id %lParam%
ControlGetPos,,,,h, ReBarWindow321, ahk_id %lParam% ControlMove, ReBarWindow321,,,,h+1, ahk_id %lParam% ControlMove, ReBarWindow321,,,,h, ahk_id %lParam%
} } }
|
|