Total Commander

За время изучения различных тонкостей (программ, настроек и памяток) накопилось много небольших видео роликов, сохраненных в exe формат, - он предпочтителен формату swf, flv, и UVF поскольку не требует установки плееров, и главное занимает небольшой объем.
Интересует возможность замены иконок в видео роликах созданных в программе UVScreenCamera и сохраненных в exe формате.
С помощью программы Resource Hacker можно без проблем изменить иконку в одном файле.
Но для нескольких файлов - без скрипта не обойтись.
Для удобства обработки (например) - их можно переименовать в окончание _01.exe И выделив нужное - разом заменить все иконки, - находящиеся в отдельной папки и имеющие такие же имена (_01.ico, _02.ico и т.д)
В общем, пока это только мечты, - но если это возможно, буду Признателен.
Спасибо

Советую почитать справку по тому же Resource Hacker, в нём есть поддержка командной строки, не составит труда написать команду для замены иконки.

MVV
Выше была моя наводка, но речь идёт о списке, а не одном файле.

shveicar
В общем, если не особо заморачиваться, то вот:

Код: Выделить всё

'==========================================================================
' Присвоить иконки exe-файлам, созданным программой UVScreenCamera

' Имя обрабатываемого exe-файла: <название>_<базовое имя ico-файла>.exe

' Параметры: "<папка с exe-файлами>" <флаг создания bak-файлов>
' Примеры:   "%P"  |  "C:\Скринкасты" 1
'==========================================================================
With WScript.Arguments
  Path = .Item(0) : If .Count > 1 Then NF = .Item(1)
End With : Dim WSH : Set WSH = CreateObject("WScript.Shell")
CP = WSH.Environment("Process")("COMMANDER_PATH")
'=========================== Путь к ResHacker =============================
RH = """" & CP & "\Utils\Resource Hacker\ResHacker.exe"""
'======================== Путь к папке с иконками =========================
ID = CP & "\Icons\UVSC\"
'==========================================================================
With CreateObject("Scripting.FileSystemObject")
  For Each F in .GetFolder(Path).Files
    BN = .GetBaseName(F) : UL = InStrRev(BN, "_")
    If UL Then
      PFix = Mid(BN, UL + 1)
      If LCase(.GetExtensionName(F)) = "exe" And .FileExists(ID & PFix & ".ico") Then
        If NF = 1 Then .CopyFile F, F & ".bak", 1 : WSH.SendKeys "^R" : End If
        WSH.Run RH & " -modify """ & F & """,""" & F & """,""" &_
        ID & PFix & ".ico"",ICONGROUP,MAINICON,1049",, True
      End If
    End If
  Next
End With : Set WSH = Nothing : WScript.Quit

Flasher
Спасибо.
Но при применении скрипта - вообще ничего не происходит(пути проверил), - может дело в версии UVSC?
на всякий случай пользуюсь этой версией .
P.s Попробовал переименовать имена видео файлов в упрощенный вид- например:
видео файл h_1 иконка имеет имя 1.ico
Скрипт стал выдавать ошибку - строка 24 символ 9.

shveicar
Надо не программу скидывать, а скринкаст (максимально короткий).

Надо не программу скидывать, а скринкаст (максимально короткий)

Хорошо, вот- результат

Не понял. Это что?

Не понял. Это что?

Если нужен - сам видео ролик, то он здесь

Сперва хотел сказать, зачем было записывать действия, нужен был любой ролик (хоть в в пол секунды) для теста, увидев же параметры кнопки, понял, что не зря записан. shveicar, уже столько примеров похожих приводилось, и всё объяснять надо?

В след. раз делаем всё по 3-й части памятки (уже поднадоело в час по чайной ложке информацию выуживать), раз самостоятельно не получается найти проблемное направление. Без обид.

уже столько примеров похожих приводилось, и всё объяснять надо?

Дело не в примерах, до этого - проверял и с параметром "%P"(пунктуальности ради)
подвело то, что нет - авто обновления, после применения, вот и подумал что ничего не происходит, - об этом и сообщал выше. У всех скриптов свои тонкости, - кроме пожалуй параметров...
Спасибо за помощь.

shveicar
Это проблема ТС, увы, Гислеру предлагаю написать.
И указанный параметр, ко всему прочему, в кавычках должен быть.

shveicar
Если переименовывать результирующие файлы в ТС, то иконки в панели меняются. Я попробовал то же самое делать в скрипте, но иконки почему-то меняются криво, середина на половину. Если менять только у одного файла, то вроде без проблем. В общем, пока не знаю..

но иконки почему-то меняются криво

Помогает переименование файла после замены - после этого иконка изменяется. Может дело в именах, - проверял с форматом вида:(h_1, g_2 и т.д). Или все таки, нужны составные иконки?

shveicar писал(а):после замены

Естественно, после. Иначе - смысл?

shveicar писал(а):Или все таки, нужны составные иконки?

Не суть какие, с любыми так.

Total Commander

Групповая замена иконок в видео файлах

Групповая замена иконок в видео файлах