wm_command.asm

本程序**%100汇编语言**编写。 编译器： <<-----MASM6.14----->> 编辑器: <<---EditPlus2.10c--->>(

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	mov eax,wParam	
		.IF lParam==0
			.if ax==IDM_RESTORE
			INVOKE ShowWindow,hWnd,SW_RESTORE
			INVOKE SetForegroundWindow,hWnd
			.ELSEIF ax==IDM_BROWSE
			INVOKE  _GetFileName,hWnd
			.if eax!=0
			invoke AddPlayList
			invoke SendMessage,hListBox,LB_ADDSTRING,0,ADDR Buffer
			.else
			.endif
			.ELSEIF ax==IDM_PLAY
			.if dwFlag==0
				invoke LoadBitmap,hInstance,IDB_PAUSE
				push eax
				invoke GetDlgItem,hWnd,IDC_PLAY
				pop ebx
				invoke SendMessage,eax,BM_SETIMAGE,IMAGE_BITMAP,ebx
				invoke PlayMp3Files
			.else
				invoke LoadBitmap,hInstance,IDB_PLAY
				push eax
				invoke GetDlgItem,hWnd,IDC_PLAY
				pop ebx
				invoke SendMessage,eax,BM_SETIMAGE,IMAGE_BITMAP,ebx
				call _PauseMp3
				call _StopPlayMp3
			.endif		
			.elseif ax==IDM_LIST
			invoke SendMessage,hWnd,WM_COMMAND,IDC_ITEM,NULL
			.ELSEIF ax==IDM_ABOUT
			invoke LoadLibrary,addr aboutme
			mov hAboutme,eax
			.if eax!=0
			invoke FreeLibrary,hAboutme
			.endif
                	.ELSE			
				invoke EndDialog,hWnd,NULL
			.ENDIF
		.ELSE
			mov edx,wParam
			shr edx,16
			.IF dx==BN_CLICKED
				.IF ax==IDC_BROWSE
					invoke PostMessage,hWnd,WM_COMMAND,IDM_BROWSE,NULL
				.ELSEIF ax==IDC_PLAY			
					invoke PostMessage,hWnd,WM_COMMAND,IDM_PLAY,NULL	
				.elseif ax==IDC_ITEM			
					invoke DialogBoxParam,hInstance,IDD_DIALOGSET,hWnd,ADDR DlgSetProc,NULL
				.ELSEIF ax==IDC_REPEAT
					invoke SendMessage,lParam,BM_GETCHECK,0,0
					.if	eax == TRUE
						mov RepeatFlag,1
					.else
						mov RepeatFlag,0
					.endif
			        .ELSEIF AX==IDC_ABOUT
					invoke LoadLibrary,addr aboutme
					mov hAboutme,eax
					.if eax!=0
					invoke FreeLibrary,hAboutme
					.endif
				.elseif ax==IDC_CHANGEVOLUME
	 				invoke ShellExecute,hWnd,addr lpOperation,addr lpFile,NULL,addr lpDirectory,SW_SHOWNORMAL
 				.ELSEIF AX==IDC_SETCOLOR
				invoke RtlZeroMemory,addr clr,sizeof clr
				mov clr.lStructSize,sizeof clr
				push hWnd
				pop clr.hwndOwner
				push hInstance
				pop clr.hInstance
				push BackColor
				pop clr.rgbResult
				mov clr.lpCustColors,offset CustomColors
				mov clr.Flags, CC_RGBINIT
				invoke ChooseColor,addr clr
				.if eax!=0
					push clr.rgbResult
					pop BackColor	
				.endif
				INVOKE GetDC,hWnd
				mov hdc,eax
				invoke InvalidateRect,hWnd,NULL,TRUE
				invoke ReleaseDC,hWnd,hdc	
				.ELSEIF ax==IDC_EXIT
					invoke PostMessage,hWnd,WM_COMMAND,IDM_EXIT,0
				.ENDIF
			.ENDIF
		.ENDIF	
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>