Dateinamenerweiterungen aus- und einblenden

[Meister Lampe]

Hallo Zusammen!

Ich möchte, ohne erst groß in den "Ordneroptionen" o.ä. hereinklicken zu müssen, die Dateinamenerweiterungen aus- und wieder einblenden können.
Ich hatte diese Frage vor langer Zeit hier schon einmal gestellt, aber ich finde sie nicht mehr.
Damals habe ich diesen Code als Antwort erhalten:

Code: Select all

^F3::
RegRead, HiddenFiles_Status, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, HideFileExt
If HiddenFiles_Status > 0
	RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, HideFileExt, 0
Else
	RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, HideFileExt, 1
send {F5}
return

Irgendwie tut der jedenfalls nicht auf jedem Computer oder nur sehr eingeschränkt.
Deshalb frage ich hier nach einer sicheren Lösung.

Viele Grüße von Meister Lampe

[just me]

Moin, vielleicht geht das:

Code: Select all

ShellShowExtensions(Show := True) {
   ; https://learn.microsoft.com/en-us/windows/win32/api/shlobj_core/nf-shlobj_core-shgetsetsettings
   Static fShowExtensions := 0x02, SSF_SHOWEXTENSIONS := 0x00000002
   Static SHCNE_ASSOCCHANGED := 0x08000000, SHCNF_IDLIST := 0
   VarSetCapacity(ShellState, 4 * 8, 0)
   If Show
      NumPut(fShowExtensions, ShellState, 0, "UInt") ; fShowExtensions
   DllCall("Shell32.dll\SHGetSetSettings", "Ptr", &ShellState, "UInt", SSF_SHOWEXTENSIONS, "UInt", 1)
   DllCall("Shell32.dll\SHChangeNotify", "UInt", SHCNE_ASSOCCHANGED, "UInt", SHCNF_IDLIST, "Ptr", 0, "Ptr", 0)
}

Das Ausgangsmeterial von @SKAN findest Du hier.