Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss Статус: Академик Рейтинг: 1469 ∙ повысить рейтинг »

_Ayl_ Статус: Студент Рейтинг: 1436 ∙ повысить рейтинг »

vladisslav Статус: 5-й класс Рейтинг: 1068 ∙ повысить рейтинг »

Вопрос № 175417: Здравствуйте уважаемые эксперты! Помогите пожалуйста с таким заданием: Нужно написать win32 приложение(используя WinAPI функции). Программа должна иметь меню с одним пунктом в котором будет подпункт "Файл" -> "Открыть". ...

Здравствуйте уважаемые эксперты! Помогите пожалуйста с таким заданием:

Нужно написать win32 приложение(используя WinAPI функции). Программа должна иметь меню с одним пунктом в котором будет подпункт "Файл" -> "Открыть". При нажатии на этот пункт открывается диалоговое окно, в котором можно выбрать лишь исполняемый файл .exe, после чего данный файл запускается.

Чесно говоря я не имею понятия как написать win32 приложение, т.е. пока только читал сухую теорию в которой нет одного примера . Если программа требует очень много времени и усилий, хотя бы дайте ссылочки где можно почитать о программирований win32 приложения (с примерами конечно). Транслятор MASM, набор инструкций процессора .386 Спасибо большое

Отправлен: 19.12.2009, 00:16
Вопрос задал: Мироненко Николай Николаевич, Студент
Всего ответов: 1
Страница вопроса »

#define   IDM_MENU    2000
#define   IDM_START   2001
#define   IDM_EXIT    2002

IDM_MENU  MENU DISCARDABLE
BEGIN
 
 POPUP "&Файл"
   BEGIN
      MENUITEM "&Открыть",      IDM_START
      MENUITEM SEPARATOR
      MENUITEM "&Выход",        IDM_EXIT
   END
END

@echo off

set n=menudemo
if not exist rsrc.rc goto over1
/masm32/bin/rc /v rsrc.rc
/masm32/bin/cvtres /machine:ix86 rsrc.res
:over1
 
if exist "%n%.obj" del "%n%.obj"
if exist "%n%.exe" del "%n%.exe"

\masm32\bin\ml /c /coff "%n%.asm"
if errorlevel 1 goto errasm

if not exist rsrc.obj goto nores

\masm32\bin\Link
/SUBSYSTEM:WINDOWS "%n%.obj" rsrc.res
if errorlevel 1 goto errlink

dir "%n%.*"
goto TheEnd

:nores
\masm32\bin\Link /SUBSYSTEM:WINDOWS "%n%.obj"
if errorlevel 1 goto errlink
dir "%n%.*"
goto TheEnd

:errlink
echo _
echo Link error
goto TheEnd

:errasm
echo _
echo Assembly Error
goto TheEnd

:TheEnd
 
pause

Приложение:
.386 .model flat, stdcall option casemap:none ; Case sensitive include \MASM32\include\Windows.inc include \MASM32\include\user32.inc include \MASM32\include\kernel32.inc include \MASM32\include\gdi32.inc include \MASM32\include\comctl32.inc include \MASM32\include\comdlg32.inc include \MASM32\macros\macros.asm includelib \MASM32\lib\user32.lib includelib \MASM32\lib\kernel32.lib includelib \MASM32\lib\gdi32.lib includelib \MASM32\lib\comctl32.lib includelib \MASM32\lib\comdlg32.lib ;=================================================== ; PROTO, MACRO, and Data section ;=================================================== WinMain PROTO :DWORD, :DWORD, :DWORD, :DWORD GetFileName PROTO :DWORD, :DWORD, :DWORD const IDM_MENU equ 2000 IDM_START equ 2001 IDM_EXIT equ 2002 data ClassName db \'MenuDemoClass\',0 AppName db \'MenuDemo\',0 szFilter db \'Исполняемые файлы (*.exe)\',0,\'*.exe\',0,0 szTitle db \'Введите имя исполняемого файла\',0 data? hInstance dd ? CommandLine dd ? hWnd dd ? szFileName db 260 dup(?) code ;=================================================== ; Program initialization section ;=================================================== start: INVOKE GetModuleHandle, NULL mov hInstance, eax INVOKE GetCommandLine mov CommandLine, eax INVOKE WinMain, hInstance ,NULL, CommandLine, SW_SHOWDEFAULT INVOKE ExitProcess, eax ;=================================================== ; WinMain procedure ;=================================================== WinMain proc uses ebx hInst:DWORD, hPrevInst, CmdLine, CmdShow LOCAL wc:WNDCLASSEX LOCAL msg:MSG 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 hInst pop wc.hInstance mov wc.hbrBackground, COLOR_BTNFACE+1 mov wc.lpszMenuName, IDM_MENU 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 ;---------- [Center the window] ---------- INVOKE GetSystemMetrics, SM_CXSCREEN sub eax, 350 shr eax, 1 push eax INVOKE GetSystemMetrics, SM_CYSCREEN sub eax, 300 shr eax, 1 pop ebx ;---------- [Create the Main Window] ---------- INVOKE CreateWindowEx, WS_EX_CLIENTEDGE, addr ClassName,\ addr AppName, WS_OVERLAPPEDWINDOW,\ ebx, eax, 350, 300, NULL, NULL, hInst, NULL mov hWnd, eax INVOKE ShowWindow, hWnd, SW_SHOWNORMAL INVOKE UpdateWindow, hWnd ;---------- [Message loop] ---------- .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 ;=================================================== ; WinProc procedure ;=================================================== WndProc proc uses ebx hwnd:DWORD, wMsg, wParam, lParam LOCAL sui:STARTUPINFO LOCAL pri:PROCESS_INFORMATION .if wMsg == WM_COMMAND movzx eax, word ptr wParam ; Only low word contains command .if eax == IDM_START invoke GetFileName, hwnd, addr szTitle, addr szFilter .if szFileName[0] > 0 lea edi, sui mov ecx, sizeof STARTUPINFO xor eax, eax rep stosb mov sui.cb, sizeof STARTUPINFO invoke CreateProcess, addr szFileName, NULL, NULL, NULL, FALSE, 0, NULL, NULL, addr sui, addr pri .endif .elseif eax == IDM_EXIT INVOKE SendMessage, hwnd, WM_CLOSE, 0 ,0 .endif .elseif wMsg == WM_CLOSE INVOKE DestroyWindow, hwnd .elseif wMsg == WM_DESTROY INVOKE PostQuitMessage, NULL .else INVOKE DefWindowProc, hwnd, wMsg, wParam, lParam ret .endif xor eax, eax ret WndProc endp GetFileName proc hParent:DWORD,lpTitle:DWORD,lpFilter:DWORD LOCAL ofn:OPENFILENAME lea edi, ofn mov ecx, sizeof OPENFILENAME xor eax, eax rep stosb mov szFileName[0],0 mov ofn.lStructSize, sizeof OPENFILENAME m2m ofn.hWndOwner, hParent m2m ofn.hInstance, hInstance m2m ofn.lpstrFilter, lpFilter mov ofn.lpstrFile, offset szFileName mov ofn.nMaxFile, sizeof szFileName m2m ofn.lpstrTitle, lpTitle mov ofn.Flags, OFN_EXPLORER or OFN_FILEMUSTEXIST or \ OFN_LONGNAMES invoke GetOpenFileName,ADDR ofn ret GetFileName endp end start
-----
Удачи!

Ответ отправил: Лысков Игорь Витальевич, Модератор
Ответ отправлен: 22.12.2009, 00:19
Украина, Кировоград
Тел.: +380957525051
ICQ # 234137952
Mail.ru-агент: igorlyskov@mail.ru
Абонент Skype: igorlyskov

Оценка ответа: 5
Комментарий к оценке:
Благодарю Вас, Вы мне очень помогли))))))

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258015 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Здравствуйте! Это снова с просьбой о помощи

Нужно написать win32 приложение, в котором будет одно окно с кнопкой, после нажатия на которую на форме будет что-нибудь рисоваться. Например линия и квадрат, будь-что...
Транслятор TASM, .386. Спасибо большое

Отправлен: 19.12.2009, 02:31
Вопрос задал: Мироненко Николай Николаевич, Студент
Всего ответов: 1
Страница вопроса »

set n=175423
tasm32 /ml %n%
tlink32 /c /m /s /M /aa /Tpe %n%.obj

Приложение:
;175423.asm 386 locals model flat, STDCALL includelib ..\lib\import32.lib include ..\include\win32.inc o equ offset DC_PEN equ 19 IDC_BTN equ 10 IDC_EXIT equ 11 IDC_AREA equ 12 .Data szCaption db \'Рисуем квадраты\',0 szKey db \'Нажми меня\',0 szExit db \'Выход\',0 szClassName db \'SquaresClass\',0 szButtonClass db \'button\',0 szDummy db 0 RndValue dd 123456 Data? hInst HINSTANCE ? hWndMain HWND ? hDC dd ? msg MSGSTRUCT <> wc WNDCLASSEX <> r RECT <> .Code start: call GetModuleHandle,0 mov hInst,eax call GetCommandLine call WinMain, hInst ,NULL, eax, SW_NORMAL call ExitProcess, eax ;=================================================== ; WinMain procedure ;=================================================== WinMain proc hIns:DWORD, hPrevInst:DWORD, CmdLine:DWORD, CmdShow:DWORD uses ebx mov wc.cbSize, size WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, o WndProc mov wc.cbClsExtra, NULL mov wc.cbWndExtra, NULL push hIns pop wc.hInstance mov wc.hbrBackground, COLOR_BTNFACE+1 mov wc.lpszMenuName, NULL mov wc.lpszClassName, o szClassName call LoadIcon, NULL, IDI_APPLICATION mov wc.hIcon, eax mov wc.hIconSm, eax call LoadCursor, NULL, IDC_ARROW mov wc.hCursor, eax call RegisterClassEx, o wc ;---------- [Center the window] ---------- call GetSystemMetrics, SM_CXSCREEN sub eax, 400 shr eax, 1 push eax call GetSystemMetrics, SM_CYSCREEN sub eax, 300 shr eax, 1 pop ebx ;---------- [Create the Main Window] ---------- call CreateWindowEx, 0, o szClassName,\ o szCaption, WS_OVERLAPPEDWINDOW,\ ebx, eax, 400, 300, NULL, NULL, hIns, NULL mov hWndMain, eax call ShowWindow, eax, SW_SHOW call UpdateWindow, hWndMain ;---------- [Message loop] ---------- MLoop: call GetMessage, o msg, NULL, 0, 0 test eax, eax jz Exit call TranslateMessage, o msg call DispatchMessage, o msg jmp MLoop Exit: mov eax, msg.msWPARAM ret WinMain endp ;=================================================== ; WinProc procedure ;=================================================== WndProc proc hWnd:DWORD, wMsg:DWORD, wParam:DWORD, lParam:DWORD uses ebx LOCAL ps:PAINTSTRUCT mov eax, wMsg cmp eax, WM_CREATE je onCreate cmp eax, WM_COMMAND je onCommand cmp eax, WM_CLOSE je onClose cmp eax, WM_DESTROY je onDestroy ExitDef: call DefWindowProc, hWnd, wMsg, wParam, lParam ret onCreate: lea eax,r call GetClientRect,hWnd,eax call CreateWindowEx,0,o szButtonClass,o szKey,WS_CHILD or WS_GROUP or \ WS_VISIBLE or WS_TABSTOP or BS_DEFPUSHBUTTON, \ 10,10,100,25,hWnd,IDC_BTN,hInst,NULL call CreateWindowEx,0,o szButtonClass,o szExit,WS_CHILD or WS_GROUP or \ WS_VISIBLE or WS_TABSTOP or BS_PUSHBUTTON, \ 10,40,100,25,hWnd,IDC_EXIT,hInst,NULL mov eax, r.rcRight sub eax, 120+8 mov r.rcRight,eax mov ebx, r.rcBottom sub ebx, 10+6 mov r.rcBottom,ebx call CreateWindowEx,0,o szButtonClass,o szDummy, \ WS_CHILD or WS_VISIBLE or BS_GROUPBOX, \ 120,3,eax,ebx,hWnd,IDC_AREA,hInst,NULL jmp ExitOk onCommand: movzx eax, word ptr wParam ; Only low word contains command cmp eax, IDC_BTN je PressButton cmp eax, IDC_EXIT jne ExitOk call SendMessage, hWnd, WM_CLOSE, 0 ,0 jmp ExitOk PressButton: call GetDC,hWnd mov hDC, eax call GetRect, o r call GetStockObject,BLACK_BRUSH call FrameRect,hDC, o r, eax call ReleaseDC, hWnd, hDC jmp ExitOk onClose: call DestroyWindow, hWnd jmp ExitOk onDestroy: call PostQuitMessage, NULL ExitOk: xor eax, eax ret WndProc endp GetRect proc pRect:DWORD uses edi mov ecx, 100 mov edi, pRect call rnd cdq idiv ecx add edx, 125 mov [edi.rcLeft], edx call rnd cdq idiv ecx add edx, 20 mov [edi.rcTop], edx call rnd cdq idiv ecx add edx, r.rcLeft mov [edi.rcRight], edx cdq idiv ecx add edx, r.rcTop mov [edi.rcBottom], edx ret GetRect endp rnd proc mov eax, 214013 mul RndValue add eax, 2531011 adc edx, 0 mov RndValue, eax mov eax, edx ret rnd endp CreateWindowEx equ <CreateWindowExA> DefWindowProc equ <DefWindowProcA> DispatchMessage equ <DispatchMessageA> GetCommandLine equ <GetCommandLineA> GetModuleHandle equ <GetModuleHandleA> GetMessage equ <GetMessageA> LoadCursor equ <LoadCursorA> LoadIcon equ <LoadIconA> RegisterClassEx equ <RegisterClassExA> SendMessage equ <SendMessageA> extrn BeginPaint:Proc extrn BitBlt:Proc extrn CreateCompatibleDC:Proc extrn CreateSolidBrush:Proc extrn CreateWindowExA:Proc extrn DefWindowProcA:Proc extrn DeleteObject:Proc extrn DestroyWindow:Proc extrn DispatchMessageA:Proc extrn EndPaint:Proc extrn ExitProcess:Proc extrn FrameRect:Proc extrn GetDC:Proc extrn GetMessageA:Proc extrn GetModuleHandleA:Proc extrn GetClientRect:Proc extrn GetCommandLineA:Proc extrn GetLastError:Proc extrn GetStockObject:Proc extrn GetSystemMetrics:Proc extrn LoadCursorA:Proc extrn LoadIconA:Proc extrn PostQuitMessage:Proc extrn Rectangle:Proc extrn RegisterClassExA:Proc extrn ReleaseDC:Proc extrn SelectObject:Proc extrn SendMessageA:Proc extrn SetDCPenColor extrn ShowWindow:Proc extrn TranslateMessage:Proc extrn UpdateWindow:Proc end start
-----
Удачи!

Ответ отправил: Лысков Игорь Витальевич, Модератор
Ответ отправлен: 22.12.2009, 16:51
Украина, Кировоград
Тел.: +380957525051
ICQ # 234137952
Mail.ru-агент: igorlyskov@mail.ru
Абонент Skype: igorlyskov

Оценка ответа: 5
Комментарий к оценке:
Спасибо Вам за помощь, я разберусь))

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258029 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »