;-
show/open CLSID Folders until Win-11 and some other Folders
idea > add some ICO , in this example > notepad and charmap is automatically displayed
Code: Select all
;- https://www.autohotkey.com/docs/v1/misc/CLSID-List.htm
;-
;- show CLSID Folders until Win-11 and some other Folders
;- idea > add some ICO , in this example > notepad and charmap is automatically displayed
;-
;- MODIFIED = 20240325
;- CREATED = 20240325
;-
#Warn
setworkingdir,%a_scriptdir%
;-
windowtitle:="LV_ICON_CLSID_FOLDERS"
R3I=%a_scriptdir%\ICO ;- folder for icons / put icons here for test > printer.ico and text.ico
ifnotexist,%r3i%
filecreatedir,%r3i%
XXA:=R3I . "\printer.ico" ;- example = printer.ico
XXB:=R3I . "\text.ico" ;- text.ico
;-
Gui,2:default
Gui,2: -DPIScale
Gui,2:Color,Black,Black
;-
wa:=A_screenwidth,ha:=A_screenHeight,xx:=100
;- maybe change fontsize
if (wa=3840)
Gui,2:Font,s12 cBlack,Lucida Console
else if (wa=1920)
Gui,2:Font,s10 cBlack,Lucida Console
else
Gui,2:Font,s8 cBlack,Lucida Console
;-
e4x=
(Ltrim Join`r`n
CHARMAP;C:\WINDOWS\system32\charmap.exe
NOTEPAD;C:\WINDOWS\system32\notepad.exe
Power Options Vista-11;::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}
Libraries 7-11;::{031E4825-7B94-4DC3-B131-E946B44C8DD5}
Desktop in Favorites Vista-11;::{04731B67-D933-450A-90E6-4ACD2E9408FE}
Downloads 10-11;::{088E3905-0323-4B02-9826-5D99428E115F}
Hyper-V Remote File Browsing 10-11;::{0907616E-F5E6-48D8-9D61-A91C3D28106D}
Taskbar Settings XP-11;::{0DF44EAA-FF21-4412-828E-260A8728E7F1}
Credential Manager 7-11;::{1206F5F1-0569-412C-8FEC-3204630DFB70}
Get Programs Vista-11;::{15EAE92E-F17A-4431-9F28-805E482DAFD4}
Default Programs Default Apps Vista-11;::{17CD9488-1228-4B2F-88CE-4298E93E0966}
Music 7-11;::{1CF1260C-4DD0-4EBB-811F-33C572699FDE}
User Pinned 7-11;::{1F3427C8-5C10-4210-AA03-2EE45287D668}
My Network Places XP-11;::{208D2C60-3AEA-1069-A2D7-08002B30309D}
My ComputerComputerThis PC XP-11;::{20D04FE0-3AEA-1069-A2D8-08002B30309D}
Control PanelAll Control Panel Items XP-11;::{21EC2020-3AEA-1069-A2DD-08002B30309D}
Printers and Faxes XP-11;::{2227A280-3AEA-1069-A2DE-08002B30309D}
Recent PlacesRecent Folders Vista-11;::{22877A6D-37A1-461A-91B0-DBDA5AAEBC99}
RemoteApp and Desktop Connections 7-11;::{241D7C96-F8BF-4F85-B01F-E2B043341A4B}
Pictures 10-11;::{24AD3AD4-A569-4530-98E1-AB02F9417AA8}
Run XP-11;::{2559A1F3-21D7-11D4-BDAF-00C04F60B9F0}
E-mail XP-11;::{2559A1F5-21D7-11D4-BDAF-00C04F60B9F0}
Set Program Access and Defaults XP-11;::{2559A1F7-21D7-11D4-BDAF-00C04F60B9F0}
Search (Modern) 8-11;::{2559A1F8-21D7-11D4-BDAF-00C04F60B9F0}
Control Panel (Category view) Vista-11;::{26EE0668-A00A-44D7-9371-BEB064C98683}
Bluetooth Devices Vista-11;::{28803F59-3A75-4058-995F-4EE5503B023C}
Media Servers 8-11;::{289AF617-1CC3-42A6-926C-E6A863F0E3BA}
Results Folder Vista-11;::{2965E715-EB66-4719-B53F-1672673BBEFA}
Sync Setup Folder Vista-11;::{2E9E59C0-B437-4981-A647-9C34B9B90891}
Show Desktop Vista-11;::{3080F90D-D7AD-11D9-BD98-0000947B0257}
Window Switcher Vista-11;::{3080F90E-D7AD-11D9-BD98-0000947B0257}
Favorites 7-11;::{323CA680-C24D-4099-B94D-446DD2D7249E}
Portable Devices 7-11;::{35786D3C-B075-49B9-88DD-029876E11C01}
Downloads 8-11;::{374DE290-123F-4565-9164-39C4925E467B}
Frequent Folders 10-11;::{3936E9E4-D92C-4EEE-A85A-BC16D5EA0819}
Pictures 8-11;::{3ADD1653-EB32-4CB0-BBD7-DFA0ABB5ACCA}
Music 10-11;::{3DFDF296-DBEC-4FB4-81D1-6A3438BCF4DE}
Windows Firewall Vista-10;::{4026492F-2F69-46B8-B9BF-5654FC07E423}
Phone and Modem 7-11;::{40419485-C444-4567-851A-2DD7BFA1684D}
Applications 8-11;::{4234D49B-0245-4DF3-B780-3893943456E1}
Public Folder Vista-11;::{4336A54D-038B-4685-AB02-99BB52D3FB8B}
Command Folder Vista-11;::{437FF9C0-A07F-4FA0-AF80-84B6C6440A16}
My Documents XP-11;::{450D8FBA-AD25-11D0-98A8-0800361B1103}
Control Panel Vista-11;::{5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}
Speech Recognition Vista-11;::{58E3C745-D971-4081-9034-86E34B30836A}
User Folder Vista-11;::{59031A47-3F72-44A7-89C5-5595FE6B30EE}
Mobility Center Vista-11;::{5EA4F148-308C-46D7-98A9-49041B1DD468}
User Accounts Vista-11;::{60632754-C523-4B62-B45C-4172DA012619}
Region and Language 7-11;::{62D8ED13-C9D0-4CE8-A914-47DD628FB1B0}
Recycle Bin XP-11;::{645FF040-5081-101B-9F08-00AA002F954E}
Quick access 10-11;::{679F85CB-0220-4080-B29B-5540CC05AAB6}
HomeGroup 7-11;::{67CA7650-96E6-4FDD-BB43-A8E774F73A57}
Mouse Properties 7-11;::{6C8EEC18-8D75-41B2-A177-8831D59D2D50}
Folder Options XP-11;::{6DFD7C5C-2451-11D3-A299-00C04F8EF6AF}
Network Connections XP-11;::{7007ACC7-3202-11D1-AAD2-00805FC1270E}
Keyboard Properties 7-11;::{725BE8F7-668E-4C7B-8F90-46BDB0936430}
Device Manager Vista-11;::{74246BFC-4C96-11D0-ABEF-0020AF6B0B7A}
User Accounts (netplwiz) XP-11;::{7A9D77BD-5403-11D2-8785-2E0420524153}
Programs and Features Vista-11;::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}
Printers 7-11;::{863AA9FD-42DF-457B-8E4D-0DE1B8015C60}
Indexing Options 7-11;::{87D66A43-7B11-4A28-9811-C86EE395ACF7}
Network and Sharing Center Vista-11;::{8E908FC9-BECC-40F6-915B-F4CA0E70D03D}
Font Settings 7-11;::{93412589-74D4-4E4E-AD0E-E0CB621440FD}
Network Connections XP-11;::{992CFFA0-F557-101A-88EC-00DD010CCC48}
AutoPlay Vista-11;::{9C60DE1E-E5FC-40F4-A487-460851A8D915}
Sync Center Vista-11;::{9C73F5E5-7AE7-4E32-A8E8-8D23B85255BF}
Videos 8-11;::{A0953C92-50DC-43BF-BE83-3742FED03C9C}
iSCCI Initiator Vista-11;::{A304259D-52B8-4526-8B1A-A1D6CECC8243}
Internet Options 7-11;::{A3DD4F92-658A-410F-84FD-6FBBBEF2FFFE}
Removable Storage Devices 8-11;::{A6482830-08EB-41E2-84C1-73920C2BADB9}
Devices and Printers 7-11;::{A8A91A66-3A7D-4424-8D24-04E180695C7A}
Documents 8-11;::{A8CDFF1C-4878-43BE-B5FD-F8091C1C60D0}
Offline Files Folder XP-10;::{AFDB1F70-2A4C-11D2-9039-00C04F8EEB3E}
Color Management Vista-11;::{B2C761C6-29BC-4F19-9251-E6195265BAF1}
Desktop 8-11;::{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}
Other Users FolderMedia Streaming Options 7-11;::{B4FB3F98-C1EA-428D-A78A-D1F5659CBA93}
System Vista-11;::{BB06C0E4-D293-4F75-8A90-CB05B6477EEE}
Action CenterSecurity and Maintenance(append \pageSettings for Problem Reporting Settings) 7-11;::{BB64F8A7-BEE7-4E1A-AB8D-7D8273F7FDB6}
Text to Speech 7-11;::{D17D1D6D-CC3F-4815-8FE3-607E7D5D10B3}
Administrative ToolsWindows Tools XP-11;::{D20EA4E1-3957-11D2-A40B-0C5020524153}
Documents 10-11;::{D3162B92-9365-467A-956B-92703ACA08AF}
Common Places FS Folder Vista-11;::{D34A6CA6-62C2-4C34-8A7C-14709C1AD938}
Add Network Place XP-11;::{D4480A50-BA28-11D1-8E75-00C04FA31A86}
Installed Updates Vista-11;::{D450A8A1-9568-45C7-9C0E-B4F9FB4537BD}
Ease of Access Center Vista-11;::{D555645E-D4F8-4C29-A827-D93C859C4F2A}
Date and Time 7-11;::{E2E7934B-DCE5-43C4-9576-7FE4F75E7480}
Default ProgramsDefault Apps Vista-11;::{E44E5D18-0652-4508-A4E2-8A090067BCB0}
All Tasks (God Mode) Vista-11;::{ED7BA470-8E54-465E-825C-99712043E01C}
Personalization Vista-10;::{ED834ED6-4B5A-4BFE-8F11-A626DCB6A921}
Network Vista-11;::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}
Sound 7-11;::{F2DDFC82-8F12-4CDD-B7DC-D4FE1425AA4D}
Videos 10-11;::{F86FA3AB-70D2-4FC7-9C99-FCBF05467F3A}
Previous Versions Results Folder 7-11;::{F8C2AB3B-17BC-41DA-9758-339D7DBF2D88}
)
;-
e5x:=ShellFolder()
e6x:=e5x . "`r`n" . e4x
sort,e6x
;-
x:=(wa*2)/xx,y:=(ha*1)/xx,w:=(wa*30)/xx,h:=(ha*80)/xx
Gui,2:Add, ListView, backgroundWhite grid x%x% y%y% w%w% h%h% +hscroll altsubmit vMLV1A gMLV1B , Name|Path
;-
x:=(wa*2)/xx,y:=(ha*83)/xx,w:=(wa*8)/xx,h:=(ha*2.7)/xx
Gui,2:add,button,x%x% y%y% w%w% h%h% gPrint,PRINT
;-
gosub,lb
x:=(wa*2)/xx,y:=(ha*1)/xx,w:=(wa*35)/xx,h:=(ha*87)/xx
gui,2:show, x%x% y%y% w%w% h%h%,%windowtitle%
return
;-------------
2Guiclose:
exitapp
;-------------
PRINT:
dlm:=";"
fx:=a_scriptdir . "\LV_PRINT_TEST.txt"
ifexist,%fx%
filedelete,%fx%
ControlGet, Listx, List, , SysListView321,%windowtitle%
stringreplace,listx,listx,`t,%dlm%,all
fileappend,%listx%,%fx%,utf-8
listx=
try
run,%fx%
return
;-------------------------
lb:
Gui,2:Submit,nohide
Gui,2:ListView,mlv1a
t1:=(wa*27)/xx,T2:=0
LV_ModifyCol(1,T1),LV_ModifyCol(2,T2)
;ILStatus := IL_Create(1,1,0) ; ICO small
ILStatus := IL_Create(1,1,1) ; ICO bigger
LV_SetImageList(ILStatus, 1)
LV_Delete()
;GuiControl,2: -Redraw,MLV1a
loop,parse,e6x,`n,`r
{
x:=a_loopfield
c1:="",c2:=""
IconNumber := IL_Add(ILSTATUS, "%pictxx05%" ) ;- clear with picture which not exist
stringsplit,C,x,`;,
C1=%c1%
C2=%c2%
SplitPath,C2,,,ext2,,
IconNumber := IL_Add(ILSTATUS, C2 )
EXEX2=txt,doc
if EXT2 contains %EXEX2%
IconNumber := IL_Add(ILSTATUS, XXB ) ;- text.ico for extension txt doc
;------- example add printer.ico ----------- <<<<<<<< printer.ico if column-2 contains Printers
if c1 contains Printers
IconNumber := IL_Add(ILSTATUS, XXA )
;-------------------------------------------
LV_Add("icon" . IconNumber ,C1,C2)
}
;GuiControl,2: +Redraw,MLV1a
;LV_ModifyCol(1,"right") ;- move text to right
return
;-----------------------------------------------------------------
mlv1b:
Gui,2:submit,nohide
Gui,2:ListView, mlv1a
If A_GuiEvent = Normal
{
LV_GetText(C2,A_EventInfo,2)
c2=%c2%
try
run,%c2%
catch e {
;xxx:=e.Message
;msgbox, 262208,ERROR ,Error=Catch`n%f1%`n------------------------------------------`n%xxx%`n------------------------------------------,1
run,shell:%c2%
}
}
return
;=========== additional Folders ========================
ShellFolder( VN="" ) {
v:=""
Static Subkey:="Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
If ( VN="")
{
Loop, HKCU, %SubKey%, 0
{ VarSetCapacity( Spaces,30,32 )
RegRead, Value, HKCU, %SubKey%, %A_LoopRegName%
SplitPath,value, name3, dir3, ext3, name_no_ext3, drive3
if a_loopregname contains Do not use
continue
if a_loopregname contains `{
v .= ((v<>"") ? "`n" : "" ) (Name3) " `; " Value
else
v .= ((v<>"") ? "`n" : "" ) (A_LoopRegName) " `; " Value
}
}
Else
RegRead, V, HKCU, %SubKey%, %VN%
Return V
}
;============= end script =================================