Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Подмена открытия папок Проводником 
Author Message
Fidelich



PostPosted: Sun Jul 29, 2007 21:45    Post subject: /О ? Reply with quote

Code:

Windows Registry Editor Version 5.00

;Создаём новый тип файла "TC.Folder"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TC.Folder]
@="Папка"
"EditFlags"=hex:d2,03,00,00
"TileInfo"="prop:Size"

;Прописываем иконку "TC.Folder" (%Commander_Path% у меня не воспринялся, вернее после перезагрузки умер). Судя пишем путь к Вашему Тоталу

[HKEY_CLASSES_ROOT\TC.Folder\DefaultIcon]
@="\"%ProgramFiles%\\Totalcmd7\\TOTALCMD.EXE\",0"

[HKEY_CLASSES_ROOT\TC.Folder\shell]

[HKEY_CLASSES_ROOT\TC.Folder\shell\open]
"BrowserFlags"=dword:00000010
"ExplorerFlags"=dword:00000012

; Здесь прописываем команду на запуск Тотала
[HKEY_CLASSES_ROOT\TC.Folder\shell\open\command]
@="\"D:\\Program Files\\Totalcmd7\\TOTALCMD.EXE\" /О \"%L\" "

[HKEY_CLASSES_ROOT\.TC.Folder]
@="Snapins.FolderSnapin"

;Региструем обработчик автозапуска TC.Open

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\TC.Open]
"Action"="Открыть для просмотра файлов"
"DefaultIcon"="\"%ProgramFiles%\\Totalcmd7\\totalcmd.exe\",0"
"InvokeProgID"="TC.Folder"
"InvokeVerb"="open"
"Provider"="Total Commander"

;Привяываем обработчик к событиям.
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\AutorunINFLegacyArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\GenericVolumeArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\HandleCDBurningOnArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\MixedContentOnArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\PlayCDAudioOnArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\PlayDVDMovieOnArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\PlayMusicFilesOnArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\PlayVideoFilesOnArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\ShowPicturesOnArrival]
"TC.Open"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\VideoCameraArrival]
"TC.Open"=""

Работает всё! Но запускается новая версия Тотала? Почему?
ключ /О должен это дело пресекать. Версия Тотала 7.0 (6.6.2007)
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group