Смена иконки чужого окна, не ковыряясь в ресурсах EXE.

[Matew]

Искал, но нашел только с ресурсами, а мне нельзя так изменять приложение . Может есть альтернативный способ?

[BV]

SendMessage WM_SETICON

[Matew]

BV, спасибо! Попробую.
А переименовать менюшки так же сендмеседжем или SetWindowText?

[Matew]

Попробовал так:

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

Call SendMessage(hwnd, WM_SETICON, 0, LoadIcon(GetModuleHandle("SHELL32.DLL"), ByVal 33))


Я нашел этот пример. Что надо поставить вместо ByVal 33, а то иконка меняется на пустую?

[BV]

А переименовать менюшки так же сендмеседжем

Возможно.
Днём посмотрю.

Что надо поставить вместо ByVal 33, а то иконка меняется на пустую?

Parameters

wParam
Specifies the type of icon to be set. This parameter can be one of the following values.

ICON_BIG
Set the large icon for the window.
ICON_SMALL
Set the small icon for the window.

lParam
Handle to the new large or small icon. If this parameter is NULL, the icon indicated by wParamis removed.

[Naked]

менюшки переименовывают этим Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long

[Matew]

Naked, попробую, спасибо.
2All

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

Call SendMessage(hwnd, WM_SETICON, 0,vbNull)
и
Call SendMessage(hwnd, WM_SETICON, 0,0)


Не меняют и не стирают чужую иконку. Что это может значить?

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

Call SendMessage(hwnd, WM_SETICON, 0, LoadIcon(GetModuleHandle("SHELL32.DLL"), ByVal 33))


Стирает иконку только у моей формы .

[tyomitch]

Matew, почитай про vbNull где-нибудь в поиске.
Там написано, например, что это значение 1 типа Integer.

[Kovu]

Matew
Ты как SendMessage объявил?

[Matew]

Kovu,

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

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


tyomitch, я так понимаю, это должно было натолкнуть меня на некую мысль, но чуда не произошло

[tyomitch]

Matew, это должно было натолкнуть тебя на мысль сходить в поиск и почитать предыдущие замечания по этому поводу.

[Kovu]

Matew
Переобъяви

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

Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long


и вызывай

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

SendMessageLong trgthwnd, WM_SETICON, ICON_SMALL , ByVal LoadResPicture(1, 1) '


[Matew]

Kovu, у моей формы меняет, а у чужой нет

[Twister]

Хэндла иконки, полученного через LoadResPicture нет в таблице хэндлов другого процесса...

[tyomitch]

Иконка -- это объект GDI.
К объектам ядра, для которых таблицы в каждом процессе, он не имеет никакого отношения.

Ты ещё скажи, что таблица hWnd в каждом процессе своя

[Twister]

Иконка -- это объект GDI

Знаю. Но разве этот хэндл глобален? В чем тогда причина того, что на чужой форме иконка не меняется?

[tyomitch]

Ахез. Вон DC, я проверял, не глобальные. Может, и иконки тоже.
Я имел в виду только то, что таблица хендлов к иконкам никаким боком.

[Matew]

Если нельзя поменять, может можно просто стереть? У меня тоже не вышло. Может быть такое, что иконка защищена?

[Twister]

Ахез. Вон DC, я проверял, не глобальные. Может, и иконки тоже.
Я имел в виду только то, что таблица хендлов к иконкам никаким боком.

Таблица хэндлов, о которой мы все подумали, естественно тут ни при чем. Но неглобальность DC и GUI хэндлов наталкивает на мысль о еще какой-то таблице. По иному, ИМХО, и быть не может...