Flasher
|
 Posted: Sun Nov 18, 2012 17:22 Post subject: |
 |
|
MVV
Выше была моя наводка, но речь идёт о списке, а не одном файле.
shveicar
В общем, если не особо заморачиваться, то вот: | Code: | '==========================================================================
' Присвоить иконки 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 |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
