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: Создание Reg файлов из внутренних ассоциаций ТС 
Author Message
Loopback



PostPosted: Thu Jan 21, 2010 23:45    Post subject: Reply with quote

Нашел в чем проблема, первый пост помог Smile Почему-то у меня в коммандере ассоциации без внешних кавычек - наверное, все пути к программам были короткие. Переделал извлечение пути.

Нужно заменить этот кусок кода.
Code:

        ; программы
        $hFile = FileOpen($sProgFile, 2+8+32)
        FileWriteLine($hFile, "Windows Registry Editor Version 5.00" & @CRLF & @CRLF)
        FileWriteLine($hFile, StringFormat("[HKEY_CLASSES_ROOT\\.%s]\r\n@=%sfile\r\n\r\n", $sCurExt, $sCurExt))
        FileWriteLine($hFile, StringFormat("[HKEY_CLASSES_ROOT\\%sfile]\r\n\r\n", $sCurExt))
        FileWriteLine($hFile, StringFormat("[HKEY_CLASSES_ROOT\\%sfile\\shell]\r\n\r\n", $sCurExt))
        FileWriteLine($hFile, StringFormat("[HKEY_CLASSES_ROOT\\%sfile\\shell\\open]\r\n\r\n", $sCurExt))
        FileWriteLine($hFile, StringFormat("[HKEY_CLASSES_ROOT\\%sfile\\shell\\open\\command]\r\n", $sCurExt))
        $sProgPath = _TCHExpandEnv($aAssocList[$i][1])
        $sProgPath = StringRegExpReplace($sProgPath, '"*([^"]+)\s*".+"', '\1')
        $sProgPath = StringReplace($sProgPath, "\", "\\")
        FileWriteLine($hFile, StringFormat('@="\\"%s\\" \\"%1\\""', $sProgPath))
        FileClose($hFile)
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group