Заменить иконку любого экзешника

[SBJocker]

Вобщем есть компилятор пихайщий свою иконку в exe-файл готовой проги, возможностью её менять он нерасполагает.. Задача: сделать надстройку которая при компиляции запихает в него нужную иконку из *.ico файла. Как ресурс заменить нашел, но вот просто прочитать данные из файла иконки и запихнуть в exe - неработает, как получить из иконки необходимые данные для записи в ресурсы?

[acoustic]

VB6 тоже свою иконку пихает
Я ResHacker'ом обычно режу

[hCORe]

PE Explorer 1.90 или Resource Tuner - вот настоящий ruleZZZ...
(это мое личное мнение )

[gaidar]

VB6 тоже свою иконку пихает
Я ResHacker'ом обычно режу

ВБ пихает иконку по умолчанию, только если на форме не установлена иконка и не выбрана форма в качестве "иконку несущей"

[GM]

Вообщем ,если никто не знает как это сделать программно, то я напишу.
Я вообщем знаю как поместить иконку 32х32 256 цветов.
Код такой:

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

H = BeginUpdateResource(exepath, False)
Dim B() As Byte
ReDim B(0 To FileLen(icopath) - 1)
Open icopath For Binary As #1
Get #1, , B()
Close #1
Call UpdateResource(H, RT_ICON, 30001, 0, B(22), UBound(B) - 21)
Erase B
ReDim B(0 To FileLen(headerpath) - 1)
Open headerpath For Binary As #1
Get #1, , B()
Close #1
Call UpdateResource(H, RT_GROUP_ICON, 1, 0, B(0), 20)
Call EndUpdateResource(H, False)


Вроде работает.Вот прогу посмотри Блокировщик ЕХЕ-шников(http://bbs.vbstreets.ru/viewtopic.php?t=5502). Там именно так и реализовано.
Вот тут я выложу header для иконок 32х32 256.Для других иконок (особенно мультиформатных) я пока не делал.И еще BeginUpdate Resource работает лиш на NT системах.

[GSerg]

Ага, всё ясно, хе-хе... Эти функции работают начиная с win2k!

[vitas123]

У меня проблема с RT_GROUP_ICON RT_ICON.
Эти переменные пустые, вследствие чего получается какая то шняга.[/img]

[tyomitch]

некрофил-приколист?

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

Private Const RT_ICON = 3&
Private Const RT_GROUP_ICON = 14&


[vitas123]

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

Private Declare Function BeginUpdateResource& Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal _
bDeleteExistingResources 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 Const RT_ICON = 3&
Private Const RT_GROUP_ICON = 14&

Private Sub Form_Load()
    exepath = "c:\project1.exe"
    icopath = "c:\1.ico"
    headerpath = "c:\32x32(256).header"

    H = BeginUpdateResource(exepath, False)
    Dim B() As Byte
    ReDim B(0 To FileLen(icopath) - 1)
        Open icopath For Binary As #1
        Get #1, , B()
        Close #1
    Call UpdateResource(H, RT_ICON, 30001, 0, B(22), UBound(B) - 21)
    Erase B
    ReDim B(0 To FileLen(headerpath) - 1)
        Open headerpath For Binary As #1
        Get #1, , B()
        Close #1
    Call UpdateResource(H, RT_GROUP_ICON, 1, 0, B(0), 20)
    Call EndUpdateResource(H, False)
End Sub




В чём тут косяк? В итоге вот что получается:
Появляются две папки "14" и "3"
а "Icon" не меняется.
Прошу прощения заранее за моё ламерство:))

[tyomitch]

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

ByVal lpType As String

OMFG... Ну и чего же ты хочешь с таким объявлением?

Казалось бы, всё только что разжевали: http://bbs.vbstreets.ru/viewtopic.php?t=18872 и вниз по топику.

[vitas123]

Исправил, но теперь другая проблема.
И икон и гроуп икон добавляется, но значк не изменяется.

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

Private Declare Function BeginUpdateResource& Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal _
bDeleteExistingResources As Long)
Private Declare Function UpdateResource& Lib "kernel32" Alias "UpdateResourceA" (ByVal _
      hUpdate As Long, ByVal lpType As Any, 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 Const RT_ICON = 3&
Private Const RT_GROUP_ICON = 14&


Private Sub Form_Load()

    exepath = "c:\3.exe"
    icopath = "c:\1.ico"
    headerpath = "c:\32x32(256).header"
   
H = BeginUpdateResource(exepath, False)
Dim B() As Byte
ReDim B(0 To FileLen(icopath) - 1)
Open icopath For Binary As #1
Get #1, , B()
Close #1
Call UpdateResource(H, RT_ICON, 1, 3081, B(22), UBound(B) - 21)
Erase B
ReDim B(0 To FileLen(headerpath) - 1)
Open headerpath For Binary As #1
Get #1, , B()
Close #1
Call UpdateResource(H, RT_GROUP_ICON, 1, 3081, B(0), 20)
Call EndUpdateResource(H, False)
End Sub


[tyomitch]

Ты старую иконку-то убираешь? Или только новую записываешь? )

[vitas123]

И икон и гроуп икон добавляется, но значок не изменяется.

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