/ КОМПЬЮТЕРЫ И ПО / Языки программирования / WinAPI

Выпуск № 307
от 16.09.2006, 14:05

Вопрос № 54.967

здравствуйте, уважаемые. написал небольшую программу, которая показывает текущее время; на определенном этапе (создание sub-menu) столкнулся с проблемой, при запуске появляется error-MessageBox с сообщением "Точка входа в процедуру AppendMenu не найдена в библиотеке DLL USER32.DLL"; при компиляции, fasm не находит ошибок и компилирует успешно; будьте любезны, подскажите, в чем баг? Приложение: format PE GUI 4.0 entry start include 'C:Tempfasmw166INCLUDEWIN32A.INC' section '.data' data readable writeable ;------------------------------------------------------------------------- whmain dd ? whinst dd ? hmenu dd ? wtitle db 'clock',0 class_name db 'class',0 id_timer equ 1 mn_color equ 100001 mn_close equ 100002 _color db 'color setup',0 _close db 'quit',0 wmsg MSG wcls WNDCLASS stime SYSTEMTIME _ps PAINTSTRUCT _hdc dd ? _rect RECT _time db '%02d:%02d:%02d',0 _buff rb 9 db 0 section '.code' readable executable ;------------------------------------------------------------------------- start: ;--> registering the window class -------------------------------- invoke GetModuleHandle,NULL mov [whinst],eax mov [wcls.hInstance],eax mov [wcls.style],CS_HREDRAW or CS_VREDRAW mov [wcls.lpfnWndProc],window_procedure mov [wcls.lpszClassName],class_name mov [wcls.hbrBackground],COLOR_WINDOW+1 invoke LoadIcon,NULL,IDI_WINLOGO mov [wcls.hIcon],eax invoke LoadCursor,NULL,IDC_ARROW mov [wcls.hCursor],eax invoke RegisterClass,wcls ;--> creating the main window -------------------------------- invoke CreateWindowEx, 0, class_name, wtitle, WS_OVERLAPPEDWINDOW or WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, 120, 50, NULL, NULL, [whinst], NULL mov [whmain],eax invoke ShowWindow,[whmain],SW_SHOWNORMAL ;--> entering the message loop ------------------------------ window_msg_loop_start: invoke GetMessage,wmsg,NULL,0,0 or eax,eax je window_message_loop_end invoke TranslateMessage,wmsg invoke DispatchMessage,wmsg jmp window_msg_loop_start window_message_loop_end: invoke ExitProcess,0 ;--> the window procedure ------------------------------------------------------------------------------------------- proc window_procedure,hWnd,uMsg,wParam,lParam push ebx esi edi invoke DefWindowProc,[hWnd],[uMsg],[wParam],[lParam] cmp [uMsg],WM_COMMAND je .wm_command cmp [uMsg],WM_CONTEXTMENU je .wm_contextmenu cmp [uMsg],WM_INITDIALOG je .wm_initdlg cmp [uMsg],WM_DESTROY je .wm_destroy jmp .finish .wm_contextmenu: ;======================================= mov eax, [lParam] ;if so, show the popup menu and eax, 0ffffh mov ebx, [lParam] shr ebx, 16 invoke TrackPopupMenu,[hmenu],TPM_LEFTALIGN,eax,ebx,0,[hWnd],0 jmp .finish ;--------------------------------------- .wm_command: ;======================================= mov eax,[wParam] cmp eax,mn_color ;je .menu_color je .wm_destroy cmp eax,mn_close je .wm_destroy jmp .finish ;--------------------------------------- .wm_initdlg: ;======================================= invoke CreatePopupMenu,0 mov [hmenu],eax invoke AppendMenu, [hmenu],MF_STRING,mn_color,_color invoke AppendMenu, [hmenu],MF_STRING,mn_close,_close invoke SetTimer,[hWnd],id_timer,200,NULL ;0.2 seconds interval invoke GetLocalTime,stime movzx eax,[stime.wHour] movzx ebx,[stime.wMinute] movzx edi,[stime.wSecond] invoke wsprintf,_buff,_time,eax,ebx,edi invoke GetDC,[hWnd] mov [_hdc],eax invoke GetClientRect,[hWnd],_rect invoke DrawText, [_hdc], _buff, -1, _rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER invoke ReleaseDC,[hWnd],[_hdc] jmp .finish ;--------------------------------------- .wm_destroy: ;======================================= invoke KillTimer,[hWnd],id_timer invoke PostQuitMessage,0 jmp .finish ;--------------------------------------- .finish: ;======================================= pop edi esi ebx ret ;--------------------------------------- endp ;------------------------------------------------------------------------- section '.idata' import data readable writeable library KERNEL32, 'KERNEL32.DLL', USER32, 'USER32.DLL', GDI32, 'GDI32.DLL' import KERNEL32, GetModuleHandle, 'GetModuleHandleA', ExitProcess, 'ExitProcess', GetLocalTime, 'GetLocalTime' import USER32, AppendMenu, 'AppendMenu', CreatePopupMenu, 'CreatePopupMenu', TrackPopupMenu, 'TrackPopupMenu', RegisterClass, 'RegisterClassA', CreateWindowEx, 'CreateWindowExA', DefWindowProc, 'DefWindowProcA', ShowWindow, 'ShowWindow', UpdateWindow, 'UpdateWindow', LoadCursor, 'LoadCursorA', LoadIcon, 'LoadIconA', BeginPaint, 'BeginPaint', InvalidateRect, 'InvalidateRect', EndPaint, 'EndPaint', GetMessage, 'GetMessageA', GetClientRect, 'GetClientRect', GetDC, 'GetDC', ReleaseDC, 'ReleaseDC', DrawText, 'DrawTextA', TranslateMessage, 'TranslateMessage', DispatchMessage, 'DispatchMessageA', PostQuitMessage, 'PostQuitMessage', wsprintf, 'wsprintfA', SetTimer, 'SetTimer', KillTimer, 'KillTimer' import GDI32, TextOut, 'TextOutA'

Отправлен: 10.09.2006, 23:21 Вопрос задал: boot_sector (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Physicist Здравствуйте, boot_sector! Нужно импортировать функцию AppendMenuA. Приложение: import USER32, AppendMenu, 'AppendMenuA',

Ответ отправил: Physicist (статус: Студент) Ответ отправлен: 10.09.2006, 23:59 Оценка за ответ: 5 Комментарий оценки: спасибо большое, Physicist. импортировал, только вот sub-menu при WM_RBUTTONDOWN не появляется. =

Вопрос № 55.017

Добрый день, у меня возникла проблема со следующей функцией PlaySound(LPCSTR pszSound,HMODULE hmod, DWORD fdwSound ) заданный звук не проигрывается есть только звук по умолчанию(щелчек), если кто то с этим сталкивался то разьясните поподробнее, и если не сложно то обьясните и как понимать вот это SND_FILENAME-The pszSound parameter is a filename Приложение: .386 .model flat,stdcall option casemap:none WinMain proto :DWORD,:DWORD,:DWORD,:DWORD include d:alllang!masm32includewindows.inc include d:alllang!masm32includewinmm.inc include d:alllang!masm32includegdi32.inc include d:alllang!masm32includeuser32.inc includelib d:alllang!masm32libuser32.lib include d:alllang!masm32includekernel32.inc includelib d:alllang!masm32libkernel32.lib includelib d:alllang!masm32libwinmm.lib includelib d:alllang!masm32libgdi32.lib RGB macro red,green,blue xor eax,eax mov ah,blue shl eax,8 mov ah,green mov al,red endm .DATA ClassName db "SimpleWinClass",0 AppName db "Metronom",0 OurText db "Win32 assembly is great and easy!",0 MBoxText db"Just Start!",0 MBoxCap db "start!",0 playFileCreate db 'd:alllang!masm32workCREATE.wav',0 FontName db "script",0 TestString db "TEST",0 .DATA? hInstance HINSTANCE ? CommandLine LPSTR ? .CODE start: invoke GetModuleHandle, NULL mov hInstance,eax invoke GetCommandLine mov CommandLine,eax invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT invoke ExitProcess,eax WinMain proc hInst:HINSTANCE, hPrevInst:HINSTANCE, CmdLine:LPSTR, CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize,SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL push hInstance pop wc.hInstance mov wc.hbrBackground,COLOR_WINDOW+1 mov wc.lpszMenuName,NULL mov wc.lpszClassName,OFFSET ClassName invoke LoadIcon,NULL,IDI_APPLICATION mov wc.hIcon,eax mov wc.hIconSm,eax invoke LoadCursor,NULL,IDC_ARROW mov wc.hCursor,eax invoke RegisterClassEx, addr wc invoke CreateWindowEx,NULL,ADDR ClassName,ADDR AppName, WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL, hInst,NULL mov hwnd,eax invoke ShowWindow, hwnd,SW_SHOWNORMAL invoke UpdateWindow, hwnd .WHILE TRUE invoke GetMessage, ADDR msg,NULL,0,0 .BREAK .IF (!eax) invoke TranslateMessage, ADDR msg invoke DispatchMessage, ADDR msg .ENDW mov eax,msg.wParam ret WinMain endp WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM LOCAL hdc:HDC LOCAL ps:PAINTSTRUCT LOCAL rect:RECT LOCAL hfont:HFONT local TextColor:DWORD .IF uMsg==WM_DESTROY invoke PostQuitMessage,NULL .ELSEIF uMsg==WM_PAINT invoke BeginPaint,hWnd, ADDR ps mov hdc,eax invoke GetClientRect,hWnd, ADDR rect invoke DrawText, hdc,ADDR OurText,-1, ADDR rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER invoke EndPaint,hWnd, ADDR ps .ELSEIF uMsg==WM_CREATE invoke PlaySoundA,ADDR playFileCreate,NULL,SND_SYNC or SND_FILENAME;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! invoke MessageBox ,NULL, ADDR MBoxText,ADDR MBoxCap,MB_OK .ELSEIF uMsg==WM_LBUTTONDOWN invoke PlaySoundA,ADDR playFileCreate,NULL,SND_ASYNC cmp eax,0 je fin invoke MessageBox ,NULL, ADDR MBoxText,ADDR MBoxCap,MB_OK fin: .ELSE invoke DefWindowProc,hWnd,uMsg,wParam,lParam ret .ENDIF xor eax, eax ret WndProc endp end start

Отправлен: 11.09.2006, 13:18 Вопрос задал: All (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: InviZ Здравствуйте, All! SND_FILENAME - это флаг, который означает, что строка, переданная в первом параметре является именем файла, а не, к примеру, идентификатором ресурса... Так что, в первый раз вы вызываете функцию правильно, во второй раз - нет.

Ответ отправил: InviZ (статус: 3-ий класс) Ответ отправлен: 11.09.2006, 18:00 Оценка за ответ: 2 Комментарий оценки: функция не работает ни в том ни в ином случае, возможно к аудиофайлу есть какие то требования, но я о них не знаю. кто нибудь может дать более подроб 085;ую информацию

Отвечает: Лысков Игорь Витальевич Здравствуйте, All! Немного подправлю предыдущего эксперта Смотрим сначала описание параметра fdwSound из MSDN (см приложение) SND_ALIAS говорит о том, что заданное имя должно интерпретироваться явно как системное событие (например, WindowsLogon - т.е. должен звучать звук, как при загрузке); SND_FILENAME - явно как имя файла; SND_RESOURCE - как идетификатор ресурса Если не задано ничего, то сначала ищется ассоциация (типа как SND_ALIAS), затем ищется файл с указанным именем (как SND_FILENAME). Т.о., в указанном примере ошибки нет. По любому, будет проигрываться файл с указанным именем. PS Программа вполне рабочая. У меня работает. Если не проигрывается, попробуй проиграть из текущего каталога (имя задать без пути) Приложение: Three flags in fdwSound (SND_ALIAS, SND_FILENAME, and SND_RESOURCE) determine whether the name is interpreted as an alias for a system event, a filename, or a resource identifier. If none of these flags are specified, PlaySound searches the registry or the WIN.INI file for an association with the specified sound name. If an association is found, the sound event is played. If no association is found in the registry, the name is interpreted as a filename. --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Студент) Ответ отправлен: 11.09.2006, 18:37 Оценка за ответ: 4 Комментарий оценки: Спасибо, разьяснения про SND_ALIAS СРАБОТАЛИ! а вот про ресурс не пашет что то , попробую как нибудь получить хэндл аудиофайла если получится такое т&# 1086; наверно заработает. еще вопрос где можно найти более подробные пояснения по всем возможным значениям SND_ALIAS , что можно еще написать помимо windowslogon

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.36 от 06.09.2006