| ExtractIcon32 |
|
|
| Declare Function GetActiveWindow32 Lib "USER32" Alias "GetActiveWindow" () As Integer |
|
| Declare Function SendMessage32 Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, _ |
| ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long |
|
| Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias "ExtractIconA" (ByVal hInst As Long, _ |
| ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long |
|
| Sub ChangeXLIcon() |
| Dim h32NewIcon As Long |
| Dim h32WndXLMAIN As Long |
| h32NewIcon = ExtractIcon32(0, "Notepad.exe", 0) |
| h32WndXLMAIN = GetActiveWindow32() |
| SendMessage32 h32WndXLMAIN, &H80, 1, h32NewIcon ' Icon gross |
| SendMessage32 h32WndXLMAIN, &H80, 0, h32NewIcon ' Icon klein |
| End Sub |
|
|
|
|
|
|
|
|
|
|
|
zurück