Запрограммировать появление на форме кнопки и поля типа Memo

.486p
.model flat, stdcall
;option casemap:none 
;include Windows.inc
include toolhelp.inc
extrn GetModuleHandleA:PROC
extrn LoadIconA:PROC
extrn LoadCursorA:PROC
extrn RegisterClassA:PROC
extrn CreateWindowExA:PROC
extrn ShowWindow:PROC
extrn UpdateWindow:PROC
extrn GetMessageA:PROC
extrn TranslateMessage:PROC
extrn DispatchMessageA:PROC
extrn ExitProcess:PROC
extrn PostQuitMessage:PROC
extrn DefWindowProcA:PROC
;extrn Rectangle:PROC
extrn CreateSolidBrush:PROC
extrn GetTickCount:PROC
extrn SetWindowTextA:PROC
extrn SetTimer:PROC
extrn MoveWindow:PROC;
extrn KillTimer:PROC
extrn CreateEllipticRgn:PROC
extrn CreateRectRgn:PROC
extrn SetWindowRgn:PROC
extrn SendMessageA:PROC
extrn SetParent:PROC
extrn MessageBoxA:PROC
extrn GetWindowTextA:PROC
.data?
WNDCLASS struc
style dd 0
lpfnWndProc dd ?
cbClsExtra dd ?
cbWndExtra dd ?
hInstance dd ?
hIcon dd ?
hCursor dd ?
hbrBackground dd ?
lpszMenuName dd ?
lpszClassName dd ?
WNDCLASS ENDS
POINT struc
x dd ?
y dd ?
POINT ends
MONMSGSTRUCT struc
hwnd1 dd ?
message dd ?
wParam dd ?
lParam dd ?
time dd ?
pt POINT <>
MONMSGSTRUCT ends
.data 
newhwnd                        dd 0 
hInst                     dd 00000000h 
szTitleName         db 'This is my application on assembler',0 
smena db ' Eto moya programma na assemblere',0
szClassName       db 'ASMCLASS32',0 
 
msg                      MONMSGSTRUCT <>; структура сообщения 
wc                       WNDCLASS <>; структура класса 
left dd 0
Top dd 0
w dd 500h
h dd 2E0h
fon dd 17106443h
alfa db '23513',0
beta db '32515',0
;bhwnd dd 0
inputstring db 128 dup (0)
const1 dd 100
const2 dd 200
bhwnd dd 0
bhwnd1 dd 0
statichwnd dd 0
delheader dd 0
inputboxhwnd dd 0
statichwnd1 dd 0
.const
emptystr db 0,0
EditClass db 'EDIT',0
ButtonClass db 'BUTTON',0
Button1 db '>>',0;
Button2 db '<<',0
StaticClass db 'LISTBOX',0
StaticText db 'This programm possibles to input text to list with using two buttons',0
Staticinput db 'STATIC',0
StaticName db 'Эта программа позволяет заносить заносить в список и вытаскивать оттуда в и из поля ввода.',0
.code 
start: 
push 0
call GetModuleHandleA ; получаем hInstanse 
Mov hInst, eax 
 
Mov wc.style, 2+1+4000h;
     ; устанавливаем стиль окна 
Mov wc.lpfnWndProc, offset WndProcg ; 
Mov wc.cbClsExtra, 0 
Mov wc.cbWndExtra, 0 
Mov eax, hInst
Mov wc.hInstance, eax 
push offset alfa
push 0h
call LoadIconA; получаем значок приложения по 
         ; умолчанию 
Mov wc.hIcon, eax 
push offset beta
push 0
call LoadCursorA ; получаем курсор по умолчанию 
Mov wc.hCursor, eax 
mov EAX,00a3c9d3h;
push EAX
call CreateSolidBrush
Mov wc.hbrBackground, EAX
Mov dword ptr wc.lpszMenuName, 0 
Mov dword ptr wc.lpszClassName, offset szClassName ; задаём имя класса 
         ;окна 
push offset wc
call RegisterClassA ; регистрируем класс окна 
 
Push 0 
Push hInst ; дескриптор 
Push 0 
Push 0 
Push h ; высота 
Push w ; ширина 
Push 0h ; y 
Push 0h ; x 
Push 0CF0000h; стиль 
Push offset szTitleName ; заголовок окна 
Push offset szClassName ; имя класса 
Push 0 ; дополнительный стиль 
Call CreateWindowExA ; создаём окно 
 
 
 
mov newhwnd, eax ; сохраняем его дескриптор 
 
push 1
push newhwnd
call ShowWindow; показываем окно 
push newhwnd
call UpdateWindow; обновляем его 
push newhwnd
call UpdateWindow; обновляем его 
 
 
 
 
 
 
 
 
Call GetTickCount
msg_loop: ; запускаем цикл обработки сообщений 
push 0h
push 0h
push 0h
push offset msg
call GetMessageA
cmp ax, 0 
je end_loop 
push offset msg
call TranslateMessage
push offset msg
call DispatchMessageA
jmp msg_loop 
end_loop: 
push 0h
call ExitProcess
 
WndProcg proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD 
push ebx
push edi
push esi
cmp word ptr wmsg,0001h
je Form1Create
Cmp word ptr wmsg, 0002h
Je wmdestroy 
Cmp word ptr wmsg, 0100h
Je wmkeydown 
cmp word ptr wmsg,0204h
je wmchangetitle
;cmp word ptr wmsg,0207h
;je inittimer
cmp word ptr wmsg,0113h
je movpos
;cmp word ptr wmsg,0202h
;je setreg;
cmp word ptr wmsg,0111h
je message1
;cmp word ptr wmsg,000Fh
;jne defa
push lparam
push wparam
push wmsg
push hwnd
call DefWindowProcA
     ; вызываем стандартный обработчик сообщений Jmp finish 
wmkeydown: 
cmp wparam,13
jne prosk
push 0
push hwnd
call KillTimer
prosk:cmp wparam, 27 
je wmdestroy; 
cmp wparam, 70h
je wm_returnnormal
;если нажата клавиша Escape то выход 
jmp finish 
wmchangetitle: 
push offset smena
push hwnd
call SetWindowTextA
;если нажата клавиша Escape то выход 
jmp finish 
wm_returnnormal: 
push offset szTitleName
push hwnd
call SetWindowTextA
;если нажата клавиша Escape то выход 
jmp finish 
inittimer:
push 00000000h
push 000000C8h
push 00000000h
push hwnd
call SetTimer
jmp finish
movpos:
add left,1;0
add Top,1;0
push 1;1;
;push 200h
mov EAX,h
sub EAX,Top
sub EAX,Top
push EAX
;push 300h
mov EAX,w
sub EAX,left
sub EAX,left
push EAX
push Top 
push left
push hwnd
call MoveWindow
jmp finish
setreg:
push 00000000h
push 00000000h
push h
push w
call CreateEllipticRgn
push 1
push EAX
push hwnd
call SetWindowRgn
jmp finish
Form1Create:
Push 00000008h 
Push hInst ; дескриптор 
;mov eax,01110000h
push 0
Push hwnd 
Push 44;0000003Bh ; высота 
Push 75;0000004Bh ; ширина 
Push 45;0000000Ah ; y 
Push 200;0000000Ah ; x 
Push 00005000h; стиль  Push 000051E0h 00005004
Push offset Button1;00000000h;Push offset Button1;szTitleName ; заголовок окна 
Push offset ButtonClass;szClassName ; имя класса 
Push 0 ; дополнительный стиль 
Call CreateWindowExA ; создаём окно 
mov bhwnd,EAX
 
push hwnd
push bhwnd
call SetParent
 
push 1000;00000124h
push 1000;000000F9h
push 00000013h
push 00000000h
call CreateRectRgn
mov delheader,EAX
push 1
push EAX
push bhwnd
call SetWindowRgn
 
push 1
push bhwnd
call ShowWindow; показываем окно 
push bhwnd
call UpdateWindow; обновляем его 
push lparam
push wparam
push wmsg
push bhwnd
 
 
 
 
Push 00000008h 
Push hInst ; дескриптор 
Push 0h
Push hwnd 
Push 44;0000003Bh ; высота 
Push 75;0000004Bh ; ширина 
Push 90;0000000Ah ; y 
Push 200;0000000Ah ; x 
Push 00005000h; стиль  Push 000051E0h 00005004
Push offset Button2;00000000h;Push offset Button1;szTitleName ; заголовок окна 
Push offset ButtonClass;szClassName ; имя класса 
Push 0 ; дополнительный стиль 
Call CreateWindowExA ; создаём окно 
mov bhwnd1,EAX
 
push hwnd
push bhwnd1
call SetParent
 
 
push 1000;00000124h
push 1000;000000F9h
push 00000013h
push 00000000h
call CreateRectRgn
;mov EAX,delheader
push 1
push EAX
push bhwnd1
call SetWindowRgn
 
push 1
push bhwnd1
call ShowWindow; показываем окно 
;push bhwnd1
;call UpdateWindow; обновляем его 
 
 
Push 00000008h 
Push hInst ; дескриптор 
Push 0h
Push hwnd 
Push 201;0000003Bh ; высота 
Push 177;0000004Bh ; ширина 
Push 4;0000000Ah ; y 
Push 6;0000000Ah ; x 
Push 00000000h; стиль  Push 000051E0h 00005004
Push offset StaticText;00000000h;Push offset Button1;szTitleName ; заголовок окна 
Push offset StaticClass;szClassName ; имя класса 
Push 0 ; дополнительный стиль 
Call CreateWindowExA ; создаём окно 
mov statichwnd,EAX
 
push hwnd
push statichwnd
call SetParent
push 1000;00000124h
push 1000;000000F9h
push 00000013h
push 00000000h
call CreateRectRgn
push 1
mov delheader,eax
push eax
push statichwnd
call SetWindowRgn
push 1
push statichwnd
call ShowWindow; показываем окно 
 
 
 
 
Push 00000008h 
Push hInst ; дескриптор 
Push 0h
Push hwnd 
Push 182;0000003Bh ; высота 
Push 121;0000004Bh ; ширина 
Push 25;0000000Ah ; y 
Push 350;0000000Ah ; x 
Push 00000000h; стиль  Push 000051E0h 00005004
Push offset emptystr;00000000h;Push offset Button1;szTitleName ; заголовок окна 
Push offset EditClass;szClassName ; имя класса 
Push 0 ; дополнительный стиль 
Call CreateWindowExA ; создаём окно 
mov inputboxhwnd,EAX
 
push hwnd
push inputboxhwnd
call SetParent
;push 1000;00000124h
;push 1000;000000F9h
;push 00000013h
;push 00000000h
;call CreateRectRgn
;push 1
;mov ,eax
;push eax
;push inputboxhwnd
;call SetWindowRgn
push 1
push inputboxhwnd
call ShowWindow; показываем окно 
 
 
Push 00000008h 
Push hInst ; дескриптор 
Push 0h
Push hwnd 
Push 60;0000003Bh ; высота 
Push 450;0000004Bh ; ширина 
Push 200;0000000Ah ; y 
Push 4;0000000Ah ; x 
Push 00000000h; стиль  Push 000051E0h 00005004
Push offset StaticName;00000000h;Push offset Button1;szTitleName ; заголовок окна 
Push offset Staticinput;szClassName ; имя класса 
Push 0 ; дополнительный стиль 
Call CreateWindowExA ; создаём окно 
mov statichwnd1,EAX
 
push hwnd
push statichwnd1
call SetParent
push 1000;00000124h
push 1000;000000F9h
push 00000013h
push 00000000h
call CreateRectRgn
push 1
mov delheader,eax
push eax
push statichwnd1
call SetWindowRgn
push 1
push statichwnd1
call ShowWindow; показываем окно 
 
 
 
;push lparam
;push wparam
;push wmsg
;push bhwnd
jmp finish
 
message1:
mov eax,bhwnd1
cmp lparam, eax
jnz finish1
xor eax,eax
cmp wparam,0
jnz finish1
 
push 0000007Fh
push offset inputstring
push inputboxhwnd
call GetWindowTextA ;получаем значение из поля ввода
     push 0h 
 
     ;   push offset szClassName
     ;    push offset inputstring
    ;    push hwnd 
     ;    call MessageBoxA 
push 0
push 0
push 188h
push statichwnd
call SendMessageA; Get Selected Position of list box
push offset inputstring
inc eax
push eax;dword ptr 00000000h
push dword ptr 0181h
 
push statichwnd
call SendMessageA ;вставляем новую строку
push statichwnd
call UpdateWindow; обновляем его 
jmp finish
finish1:
mov eax,bhwnd
cmp lparam, eax
jnz finish
xor eax,eax
cmp wparam,0
jnz finish
 
push 0
push 0
push 188h
push statichwnd
call SendMessageA; Get Selected Position of list box
push eax
push offset inputstring
push eax
push 189h
push statichwnd
call SendMessageA; Get Text of Selected string
pop eax
push 0
push eax
push 182h
push statichwnd
call SendMessageA; Delete Selected String
push offset inputstring
push inputboxhwnd
call SetWindowTextA; SetTextToTheInputBox
jmp finish
;call DefWindowProcA
;jmp finish
pludraw:
;push offset paintstru
;push hwnd
;call BeginPaint
;push eax
;push hwnd
;call Paint_Proc
;push offset ps
;push hwnd
;call EndPaint
;jmp defa
wmdestroy:
push 0h 
call PostQuitMessage
push 0h
call ExitProcess ; выход 
finish:
pop ebx
pop edi
pop esi 
ret 
WndProcg endp 
end start