Fenêtre widows (nasm)

Commenter

Contenu du snippet

Encor un coup de pousse pour les programmer sous nasm. Je sais qu'il y a déjà un exemple mais celui si un peu différents : pur assembleur
En plus il y a une petite gestion des erreures!
TRAX

Source / Exemple : 


[EXTERN MessageBoxA]	
[import MessageBoxA user32.dll]

[EXTERN ExitProcess]
[import ExitProcess kernel32.dll]
[EXTERN CreateWindowExA]
[import CreateWindowExA user32.dll]
[extern GetModuleHandleA]
[import GetModuleHandleA kernel32.dll]
[extern GetCommandLineA]
[import GetCommandLineA kernel32.dll]
[EXTERN RegisterClassExA]
[import RegisterClassExA user32.dll]
[EXTERN ShowWindow]
[import ShowWindow user32.dll]
[EXTERN LoadIconA]
[import LoadIconA user32.dll]
[EXTERN LoadCursorA]
[import LoadCursorA user32.dll]
[EXTERN DefWindowProcA]
[import DefWindowProcA user32.dll]
[EXTERN PostQuitMessage]
[import PostQuitMessage user32.dll]
[EXTERN TranslateMessage]
[import TranslateMessage user32.dll]
[EXTERN DispatchMessageA]
[import DispatchMessageA user32.dll]
[EXTERN GetMessageA]
[import GetMessageA user32.dll]
[EXTERN CreateFontIndirectA]
[import CreateFontIndirectA gdi32.dll]
[EXTERN DeleteObject]
[import DeleteObject gdi32.dll]
[EXTERN PostMessageA]
[import PostMessageA user32.dll]
;_______________________________________________
  
[SECTION CODE USE32 CLASS=CODE]
  
..start:

push dword 00h				; null
call [GetModuleHandleA]
mov dword [instance], eax

Call [GetCommandLineA]
mov dword [commandline], eax

push dword 0Ah				; SW_SHOW
push dword eax
push dword 00h				; null
push dword [instance]
call WinMain

push dword eax
call [ExitProcess]

;************************************************
;*	             winMain			*
;************************************************
;%define hInstance 	ebp+8
;%define hPrevInstance	ebp+12
;%define lpCmdLine	ebp+16
;%define nCmdShow	ebp+20

	WinMain:
  enter 0,0
mov dword [winclass+0], 30h					; 48(d)
mov dword [winclass+4], 03h					; CS_HREDRAW | CS_VREDRAW	
mov dword [winclass+8], WinProc
mov dword [winclass+12], 0
mov dword [winclass+16], 0
mov eax, dword [instance]
mov dword [winclass+20], eax

push word 0
push word 101
mov eax, dword [instance]
push dword eax
call [LoadIconA]
mov dword [winclass+24], eax
mov dword [winclass+44], eax

push dword 07F00h									; IDC_ARROW
push dword 00h									; NULL
call [LoadCursorA]
mov dword [winclass+28], eax

mov dword [winclass+32], 10h						; background COLOR_BTNFACE+1
mov dword [winclass+36], 00h						; (MenuName)
mov dword [winclass+40], nomclass

push dword winclass
call [RegisterClassExA]

cmp eax,0
jne RegisterOk

push dword 00h
push dword message1
push dword message2
push dword 00h
call [MessageBoxA]

push word 00h
call [ExitProcess]

 RegisterOk:

mov dword [atom], eax

push dword 00h							; null
mov eax, dword [instance]
push dword eax
push dword 00h							; null
push dword 00h							; null
push dword 500 							; Wigth
push dword 500 							; Height
push dword 20 							; Left
push dword 20 							; Top
push dword 00CF0000h						; WS_TILEDWINDOW
push dword nom
push dword nomclass
push dword 00h							; WS_EX_LEFT
call [CreateWindowExA]

cmp eax , 0
jne CreateWindowOk

push dword 00h
push dword message1
push dword message3
push dword 00h
call [MessageBoxA]

push word 00h
call [ExitProcess]

 CreateWindowOk:

mov dword [handle], eax

push dword 5h								; SW_SHOW
push dword [handle]
call [ShowWindow] 

 BoucleMessages:

push dword 0
push dword 0
push dword [handle]
push dword msg1
call [GetMessageA]

cmp eax, 12h 								; WM_QUIT
je FinBoucle 

cmp eax, -1
jne GetMEssageOk

push dword 00h
push dword message1
push dword message4
push dword 00h
call [MessageBoxA]

push word 00h
call [ExitProcess]

  GetMEssageOk:

push dword msg1
call [TranslateMessage]
push dword msg1
call [DispatchMessageA]

jmp BoucleMessages

 FinBoucle:
mov eax, dword [msg1+8]			; ????????????????????????? wParam

 Fin:
  leave
	ret 16

;*********************************************
;*	        WindowProc		     *
;*********************************************
%define hwnd 	ebp+8
%define uMsg 	ebp+12
%define wParam	ebp+16
%define lParam	ebp+20

	WinProc:
  enter 0,0
mov eax,[uMsg]

cmp eax,01b
je near Create  
cmp eax,10b
je near Destroy

 Defaut:
push dword  [lParam]
push dword   [wParam] 
push dword   [uMsg]]
push dword   [hwnd]
call [DefWindowProcA]

 Fin2:
    leave
	ret 16

 Create: ;**************************************
push dword FontStandard
call [CreateFontIndirectA]
mov dword [hFontStandard], eax

 jmp Fin2

 Destroy: ;*************************************
push dword [hFontStandard]
call [DeleteObject] 
 jmp Fin2
;_______________________________________________

  
  ; Procedures et fonctions secondaires
;_______________________________________________

 ;Procedure qui assigne une font standard à un contrôle
 ; Param : Handle du contrôle dans eax

 SetFontStandard:
push dword 01b
push dword [hFontStandard]
push dword 30h
push dword eax
call [PostMessageA]
 ret  
;_______________________________________________
  
  
[SECTION DATA USE32 CLASS=DATA]
  
  ; Données
;_______________________________________________
instance 		resd 1
commandline		resd 1
winclass			resd 12
atom				resd 1
handle			resd 1
msg1				resd 9
nomclass			db "WindowClass01",0
nom				db "premiere fenetre window",0
message1			db "Erreur !",0
message2			db "Première erreur !",0
message3			db "Deuxsième erreur !",0
message4			db "Bye !",0

FontStandard    dd      10
                resd    6
                db      "MS sans Serif",0
                
hFontStandard   resd    1
;_______________________________________________

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TRAX44)