| Вопрос: Изменение иконки у другой программы | Добавлено: 13.07.08 12:13 |
Автор вопроса:  power_2007_pro
|
| Скажите пожалуйста, как мне на Visual BAsic можно написать прогу, которая сможет изменять иконку у другой программы? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 14.07.08 02:24 |
|
На этом сайте, в примерах, есть программа Birthday, она кажеться умела менять иконку у самой себя. Думаю таким же макаром, получится и у других программ.
Вообще иконка в программе, хранится в ресурсах. Всякими программами вроде ResHack итп эти ресурсы можно просматривать и редактировать. Иконка ресурс определенного формата. WinAPI для работы с ресурсами есть, проблема разве что с форматом иконки. Он вроде нигде толком не описан, и иногда меняется... |
||
|
Номер ответа: 2 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #2 | Добавлено: 14.07.08 18:34 |
| Я дооолго искал формат этих иконок... нифига путевого так и не нашел... | ||
|
Номер ответа: 3 Автор ответа: D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #3 | Добавлено: 16.07.08 01:20 |
| Хакер заводит в заблуждения людей.так и когда то меня.ничего там нет.ищи примеры как изменять ресурсы. | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 16.07.08 03:26 |
|
Хакер заводит в заблуждения людей.так и когда то меня.ничего там нет.ищи примеры как изменять ресурсы. http://www.vbnet.ru/samples/download.aspx?id=714
хе-хе.. Private Sub WriteIcon(ByRef sFilePath As String)
Dim hFindRes As Long, _ hMemory As Long, _ hUpdate As Long ' (***) Будет сделано, но потом (иконка выходного файла) ' hFindRes = FindResource(0&, Val(ico_prw.Tag), RT_ICON) ' If (hFindRes = 0&  Then Exit Sub
' ' hMemory = LoadResource(0&, hFindRes) ' hMemory = LockResource(hMemory) ' If (hMemory = 0& Then Exit Sub
' ' hUpdate = BeginUpdateResource(sFilePath, 0&
' If hUpdate = 0& Then Exit Sub ' ' Call UpdateResource(hUpdate, RT_ICON, 0&, 1033, hMemory, SizeofResource(0&, hFindRes)) ' Call EndUpdateResource(hUpdate, 0) ' (/***) End Sub Видать sne тоже заманался с форматом иконки разбираться 
|
||
|
Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #5 | Добавлено: 16.07.08 10:37 |
|
Да-да) У него я в первую очередь спросил
|
||
Страница: 1 |