Проект Комментария к "Win32 API Tutorial" by Iczelion

Plis, давно сюда не заглядывал, извините.

Выкладываю наскоро переделанный код урока 18:
все, что касается таймера - закомментировано, а взамен - вариант с потоком
(вообще-то SendMessage между потоками лучше бы заменить на PostMessage или SendMessageTimeout).
А в своем коде вы уж сами найдите, что не так, ладно?

Код (Text):

1. .386
2. .model flat,stdcall
3. option casemap:none
4. include \masm32\include\windows.inc
5. include \masm32\include\user32.inc
6. include \masm32\include\kernel32.inc
7. include \masm32\include\comctl32.inc
8. includelib \masm32\lib\comctl32.lib
9. includelib \masm32\lib\user32.lib
10. includelib \masm32\lib\kernel32.lib
11.  
12. WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
13.  
14. .const
15. IDC_PROGRESS    equ 1
16. IDC_STATUS      equ 2
17. IDC_TIMER       equ 3
18.  
19. .data
20. ClassName       db "CommonControlWinClass",0
21. AppName         db "Common Control Demo",0
22. ProgressClass   db "msctls_progress32",0
23. Message     db "Finished!",0
24. ;TimerID        dd 0
25.  
26. .data?
27. hInstance       HINSTANCE ?
28. hwndProgress    dd ?
29. hwndStatus  dd ?
30. CurrentStep dd ?
31.  
32. .code
33.  
34. ThreadProc proc uses edi esi lParam:LPARAM
35.   xor edi,edi  
36.   xor esi,esi
37. @@:
38.   dec esi
39.   test esi,esi
40.   jz @f
41.   inc edi
42.   cmp edi,01000000h
43.   jnz @b
44.   xor edi,edi
45.   invoke SendMessage,hwndProgress,PBM_STEPIT,0,0
46.   sub CurrentStep,10
47.   mov eax,CurrentStep
48.   test eax,eax
49.   jnz @b
50. @@:
51.   invoke SendMessage,hwndStatus,SB_SETTEXT,0,addr Message
52.   invoke MessageBox,lParam,addr Message,addr AppName,MB_OK+MB_ICONINFORMATION
53.   invoke SendMessage,hwndStatus,SB_SETTEXT,0,0
54.   invoke SendMessage,hwndProgress,PBM_SETPOS,0,0
55.   ret
56. ThreadProc endp
57.  
58. start:
59.     invoke GetModuleHandle, NULL
60.     mov    hInstance,eax
61.     invoke WinMain, hInstance,NULL,NULL, SW_SHOWDEFAULT
62.     invoke ExitProcess,eax
63.     invoke InitCommonControls
64.  
65. WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
66.     LOCAL wc:WNDCLASSEX
67.     LOCAL msg:MSG
68.     LOCAL hwnd:HWND
69.     mov   wc.cbSize,SIZEOF WNDCLASSEX
70.     mov   wc.style, CS_HREDRAW or CS_VREDRAW
71.     mov   wc.lpfnWndProc, OFFSET WndProc
72.     mov   wc.cbClsExtra,NULL
73.     mov   wc.cbWndExtra,NULL
74.     push  hInst
75.     pop   wc.hInstance
76.     mov   wc.hbrBackground,COLOR_APPWORKSPACE
77.     mov   wc.lpszMenuName,NULL
78.     mov   wc.lpszClassName,OFFSET ClassName
79.     invoke LoadIcon,NULL,IDI_APPLICATION
80.     mov   wc.hIcon,eax
81.     mov   wc.hIconSm,eax
82.     invoke LoadCursor,NULL,IDC_ARROW
83.     mov   wc.hCursor,eax
84.     invoke RegisterClassEx, addr wc
85.     invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName,\
86.            WS_OVERLAPPED+WS_CAPTION+WS_SYSMENU+WS_MINIMIZEBOX+WS_MAXIMIZEBOX+WS_VISIBLE,CW_USEDEFAULT,\
87.            CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,\
88.            hInst,NULL
89.     mov   hwnd,eax
90.     .while TRUE
91.         invoke GetMessage, ADDR msg,NULL,0,0
92.         .BREAK .IF (!eax)
93.         invoke TranslateMessage, ADDR msg
94.         invoke DispatchMessage, ADDR msg
95.     .endw
96.     mov eax,msg.wParam
97.     ret
98. WinMain endp
99.  
100. WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
101.     .if uMsg==WM_CREATE
102.         invoke CreateWindowEx,NULL,ADDR ProgressClass,NULL,\
103.               WS_CHILD+WS_VISIBLE,100,\
104.              200,300,20,hWnd,IDC_PROGRESS,\
105.                hInstance,NULL
106.         mov hwndProgress,eax
107.         mov eax,1000
108.         mov CurrentStep,eax
109.         shl eax,16
110.         invoke SendMessage,hwndProgress,PBM_SETRANGE,0,eax
111.         invoke SendMessage,hwndProgress,PBM_SETSTEP,10,0
112.         invoke CreateStatusWindow,WS_CHILD+WS_VISIBLE,NULL,hWnd,IDC_STATUS
113.         mov hwndStatus,eax
114. ;       invoke SetTimer,hWnd,IDC_TIMER,100,NULL
115. ;       mov TimerID,eax
116.     invoke CreateThread,0,0,offset ThreadProc,hWnd,0,0
117.     invoke CloseHandle,eax
118.     .elseif uMsg==WM_DESTROY
119.         invoke PostQuitMessage,NULL
120. ;       .if TimerID!=0
121. ;           invoke KillTimer,hWnd,TimerID
122. ;       .endif
123. ;   .elseif uMsg==WM_TIMER
124. ;       invoke SendMessage,hwndProgress,PBM_STEPIT,0,0
125. ;       sub CurrentStep,10
126. ;       .if CurrentStep==0
127. ;           invoke KillTimer,hWnd,TimerID
128. ;           mov TimerID,0
129. ;           invoke SendMessage,hwndStatus,SB_SETTEXT,0,addr Message
130. ;           invoke MessageBox,hWnd,addr Message,addr AppName,MB_OK+MB_ICONINFORMATION
131. ;           invoke SendMessage,hwndStatus,SB_SETTEXT,0,0
132. ;           invoke SendMessage,hwndProgress,PBM_SETPOS,0,0
133. ;       .endif
134.     .else
135.         invoke DefWindowProc,hWnd,uMsg,wParam,lParam       
136.         ret
137.     .endif
138.     xor eax,eax
139.     ret
140. WndProc endp
141.  
142. end start

 

Ну, добавить нечего, разве что по мнемонике:
"f"("F") - "forward",
"b"("B") - "back".

 

Rockphorr
Да, знаю, надо бы привести в порядок. Жду подходящего настроения
Возможно, оно появится очень скоро: Yahoo! GeoCities 26 октября прикрывает все халявные сайты,
в том числе и мой (9 годков отроду), так что хошь не хошь - придется возбудиться.

 

mega_t72
Да нет, этот атом вам возврашает система через RegisterClassEx:
это просто числовой идентификатор строки (придуманного вами имени оконного класса) в соответствующей системной таблице.
Регистрировать строки можете, а выбирать место в таблице - нет

 

mega_t72

ага, ровно 3 года назад тут это обсуждалось - Как узнать имена стандартных классов окон в Win32, пост #26 и соседние.

Мне уже доводилось отмечать, что этот списочек из MSDN - не шибко полный, к примеру, в нем нема занятнейшего #32774
Но поскольку наткнулся на несколько интересных моментов с классами именно благодаря ExtraSpy - пожалуй, и правда стоит немного дополнить главку 14 (Анализатор класса). Постараюсь сделать на неделе.
---

Rockphorr

Кое-что перебросил на http://xmemor.narod.ru/

--------
+
FrameRector v.2011-04-05:

 

mega_t72

"Заглянуть в MSDN" - это всегда необходимо, но никогда не достаточно

Чему подтверждение - #32774. Или ваш здесь вопрос о регистрации оконного класса

--------
+
WinTreeSnap v.2011-04-05
(подробности см. на 1-ой странице)

 

mega_t72, и спасибо ему за это, таки подтолкнул на некоторое расширение главки "14) Анализатор класса" (см. выше "Некоторые подробности о диалогах").

К тому же одновременно в форуме поинтеоесовались странностью атома из RegisterClassEx,
Iczelion-овский 22 урок "Суперклассинг" предъявил зависимость регистрации от манифеста,
а васмовский поиск подбросил весьма подходящие подзабытые топики...

Так что вот: выкладываю первую из нескольких намеченных учебных утилиток - WindowClassNameAtom.
По задумке - это собрание тестов для практического прощупывания темы, в противовес теоретическим словесам по древу.

Тем не менее, на неделе добавлю и текст: что-то вроде обозрения под рабочим названием "Window Class Name & Atom".