Изменение иконки у *.exe

[WERT-007]

Возможно ли изменить иконку у программы?

[skord]

Свойсво формы Icon?

[WERT-007]

Да нет, не у моей программы, а у чужой, скомпилированной программы.

[extHack]

Ну вообщето это не просто. Узнай смещение в exe, и все такое.

[Konst_One]

resource hacker

[extHack]

У меня был такой же вопрос, я заменял значок 32x32 (16 colors) все высчитал. И облом. Значек заменился только в заголовке. Там сложновато

[extHack]

resource hacker

Можно юзать и Restorator

[WERT-007]

Узнай смещение в exe, и все такое.

А где оно хранится?

И еще - вообще-то мне нужно сделать одной программе, например, значек от другой. Может так проще? В смысле заменять целым куском, а не создаватьь свой?

[extHack]

Узнай смещение в exe, и все такое.

А где оно хранится?

И еще - вообще-то мне нужно сделать одной программе, например, значек от другой. Может так проще? В смысле заменять целым куском, а не создаватьь свой?

По сигнатуре файла *.ico

[WERT-007]

По сигнатуре файла *.ico

Понял.
И еще, а где-нибудь можно найти алгоритм работы того же ResHacker'a (ведь он же должен весь exe'шник переделывать...смещения там и т.д.)

[skord]

Ааа!..
Ну вроде были исходники редактора ресурсов на vb, если не ошибаюсь... так что поиск может помочь

[Крост]

Во-во..мне вдруг стало интерестно, как при помощи VB изменить иконку...

[ANDLL]

Вообще-то никакого смещения вычислять не надо... Есть функции BeginUpdateResource, UpdateResource и EndUpdateResource. Их и используйте.

[tyomitch]

По сигнатуре файла *.ico

Понял.
И еще, а где-нибудь можно найти алгоритм работы того же ResHacker'a (ведь он же должен весь exe'шник переделывать...смещения там и т.д.)

1. У файла .ico нет сигнатуры
2. Алгоритм выковыривания иконок детально описан в ftp://cs.usu.edu.ru/util/IcoCur/prjIcoCur.txt , и исходники выковыривалки на VB лежат рядом. Запихивать точно так же

[Amed]

tyomitch, имеется в виду подпись в хедере формата Windows Bitmap-File о том, что это иконка, а не картинка.

[tyomitch]

Ты имеешь в виду (WORD)1? Хорошая сигнатура, найти по ней иконку в ехе-шнике будет совсем легко

Не говоря уже о том, что и этой "сигнатуры" в иконке в ехе-шнике нет.

[Amed]

Какую еще сигнатуру можно иметь в виду?

Битмапы в ресурсах не различаются "сигнатурами"? Просто данные DIB-формата?

[tyomitch]

Битмапы в ресурсах различаются типом ресурса, у иконок это RT_ICON=(DWORD)3. Опять же, по этой "сигнатуре" иконку не найти просто так, всё равно придётся разбирать таблицу ресурсов или юзать API.

[Крост]

ANDLL
На счёт функций можно по-подробнее, а то в АпиГид нету их..=(

[RUSYA]

Private Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long
Private Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long
Private Declare Function FindResourceEx Lib "kernel32" Alias "FindResourceExA" (ByVal hModule As Long, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function LockResource Lib "kernel32" (ByVal hResData As Long) As Long
Private Declare Function SizeofResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function LoadResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Const FileName = "c:\2.exe"

Private Sub Command1_Click() 'Записать
Dim h As Long
Dim txt As String
h = BeginUpdateResource(FileName, 0)
txt = "Текстфывфыв2222222222фывфывфффф"
Call UpdateResource(h, "TEXT", "2", 1049, ByVal txt, Len(txt)) '1049 - язык
Call EndUpdateResource(h, 0)
End Sub

Private Sub Command2_Click() 'Прочитать
Dim txt As String
Dim hgRes As Long

hLib = LoadLibrary(FileName)
hRes = FindResourceEx(hLib, ByVal "TEXT", ByVal "2", 1049)
hLRes = LoadResource(hLib, hRes)
hgRes = LockResource(hLRes)
lenRes = SizeofResource(hLib, hRes)

txt = Space(lenRes)
CopyMemory ByVal txt, ByVal hgRes, lenRes

FreeLibrary hLib

MsgBox txt
End Sub

[RUSYA]

З.Ы. Это текст, для иконки есстно подправить надо

[GSerg]

RUSYA
Этот код работает только в Win2000 и выше.

А вот http://bbs.vbstreets.ru/viewtopic.php?p=146184#146184 работает везде.

[ism]

Насчет сигнатуры, там и иконка записываенся ни как ICO иконка. В ресурсе груп иконок указывается смещение на иконку в другй ветке, ресурсов иконок. А эта иконка не иконка какойие-то массивы бит AND, XOR и прочая ерунда. Без 100 грам не разобрать, а я не пьщий.
Давным-давно хотел сделать бесплатный аналог Ресторатора, но видимо не судьба. Может это вам поможет.

PS
Я уже давно эту идею забросил.

[DmB]

Хороший пример работы с resource hacker, кстати можно сменить иконку на 32Bit!

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59231&lngWId=1

[vitas123]

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

Private Declare Function BeginUpdateResource& Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal _
bDeleteExistingResources As Long)
Private Declare Function FindResource& Lib "kernel32" Alias "FindResourceA" (ByVal _
      hInstance As Long, ByVal lpName As String, ByVal lpType As String)
Private Declare Function FindResourceEx& Lib "kernel32" Alias "FindResourceExA" (ByVal _
      hModule As Long, ByVal lpType As String, ByVal lpName As String, ByVal _
      wLanguage As Integer)
Private Declare Function LoadResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Function UpdateResource& Lib "kernel32" Alias "UpdateResourceA" (ByVal _
      hUpdate As Long, ByVal lpType As String, ByVal lpName As String, ByVal _
      wLanguage As Long, lpData As Any, ByVal cbData As Long)
Private Declare Function EndUpdateResource& Lib "kernel32" Alias "EndUpdateResourceA" _
      (ByVal hUpdate As Long, ByVal fDiscard As Long)

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FindResourceByNum Lib "kernel32" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As Long) As Long
Private Declare Function SizeofResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Function LockResource Lib "kernel32" (ByVal hResData As Long) As Long

Const RT_ICON = 3&

Private Sub Form_Load()
    hModule = LoadLibrary("c:\2.exe")
    hRsrc = FindResourceByNum(hModule, "#1", CLng(14))
    hGlobal = LoadResource(hModule, hRsrc)
    pResLock = LockResource(hGlobal)
    ResSize = SizeofResource(hModule, hRsrc)
    hResUpdate = BeginUpdateResource("c:\3.exe", False)
    Call UpdateResource(hResUpdate, RT_ICON, ByVal "1", 0, pResLock, ResSize)
    EndUpdateResource hResUpdate, False
End Sub


Всё работает, ресурс добавляется, почему - то в итоге тип ресурса - "3", а содержание не иконка, а шестанадцатеричный код.
Может кто-то догадается?

[ism]

Private Declare Function UpdateResource& Lib "kernel32" Alias "UpdateResourceA" (ByVal _
hUpdate As Long, ByVal lpType As String, ByVal lpName As String, ByVal _
wLanguage As Long, lpData As Any, ByVal cbData As Long)

и
Const RT_ICON = 3&, т.е. Const RT_ICON as Long = &H3

Это как? Я всегда обявляю как ANY и не парюсь

[vitas123]

Такая же канитель. Все равно не меняет иконку.
Может у кого код есть. Хэлп...

[vitas123]

Ну и что такая тишина?

[ism]

Call UpdateResource(hResUpdate, RT_ICON, ByVal "1", 0, pResLock, ResSize)

Неправда, 1 - не строка в данном случае. Используй Ресторатор для посмотра промежуточных результатов. А лутше ResHacker или недаделанную прогу, которую я выложил.