aero.theme Win8.1

Код (Text):

1. include '%fasm%/win64ax.inc'
2. section '.code' executable
3. start:
4.     sub rsp,8
5.  
6.     invoke SHSetValue,HKEY_CURRENT_USER,'Software\Microsoft\Windows\DWM','ColorizationColor',REG_DWORD,@ff4bb5db,4
7.     invoke SHSetValue,HKEY_CURRENT_USER,'Software\Microsoft\Windows\DWM','ColorizationColorSource',REG_DWORD,@00000000,4
8.     invoke SHSetValue,HKEY_CURRENT_USER,'Software\Microsoft\Windows\DWM','ColorPrevalence',REG_DWORD,@00000001,4
9.  
10.     invoke LoadLibrary,'uxtheme.dll'
11.     mov rbx,rax
12.     invoke GetProcAddress,rbx,65
13.     test rax,rax
14.     jz @f
15.     mov rcx,_style
16.     mov rdx,_color
17.     mov r8,_size
18.     xor r9,r9
19.     call rax
20. @@:
21.     invoke LoadLibrary,'dwmapi.dll' ; (Ordinal 131)
22.     test rax,rax
23.     jz @f
24.     invoke GetProcAddress,rax,131 ; DwmSetColorizationParameters
25.     test rax,rax
26.     jz @f
27.  
28.     mov rcx,dwm_params
29.     xor rdx,rdx ; 0 = не изменять настройки только для этого окна, а для всей системы
30.     call rax
31. @@:
32.     invoke SendMessage,0xffff,0x031e,NULL,NULL ; WM_DWMCOLORIZATIONCOLORCHANGED  ; For all windows
33. exit:
34.     invoke ExitProcess,NULL
35.  
36. section '.data' readable
37.  
38.     _style du 'C:\Windows\Resources\Themes\Aero\Aero.msstyles',NULL
39.     _color du 'NormalColor',NULL
40.     _size du 'NormalSize',NULL
41.  
42.     @00000000 dd 0x00000000
43.     @00000001 dd 0x00000001
44.     @ff4bb5db dd 0xff4bb5db
45.  
46. section '.data' readable writeable
47.  
48. struct DWM_COLOR_PARAMS
49.  
50.     color dd 0xff4bb5db ; Color AARRGGBB
51.     afterglow dd 0xff4bb5db ; Lightness (usaly the same)
52.     colorBalance dd 100 ; Intensivity (0-100)
53.     afterglowBal dd 1 ; Balance of lightness
54.     blurBalance dd 50 ; Blurness
55.     glassReflect dd NULL ; Reflex (0 or 1)
56.     opaqueBlend dd NULL ; Transparancy
57. ends
58.  
59.     dwm_params DWM_COLOR_PARAMS
60.  
61.  
62. section '.idata' import readable
63.  
64.     library advapi32,'ADVAPI32.DLL',kernel32,'KERNEL32.DLL',shell32,'SHELL32.DLL',shlwapi,'SHLWAPI.DLL',user32,'USER32.DLL'
65.     include '%fasm%/api/advapi32.inc'
66.     include '%fasm%/api/kernel32.inc'
67.     include '%fasm%/api/shell32.inc'
68.     include '%fasm%/api/shlwapi.inc'
69.     include '%fasm%/api/user32.inc'
70.  

Цель была colorBalance dd 100 ; Intensivity (0-100) Работает!

 

Ну, на мой взгляд - круто. Непонятное же всё кажется сложным.
Это вы, вроде, драйвер под свои задачи подгоняли или я ошибаюсь?

P.S. Во жизнь пошла. Музыканту нужно быть одновременно - музыкантом и хакером, либо музыкантом и "богатеньким Буратино" - третьего не дано.