汇编语言

开发平台：
Asm

FD.ASM：源码内容
								.386
	.model flat,STDCALL
	extrn Dispatch : PROC, handlesb : proc, scrollkeys : proc
	extrn CreateDrawWindow : PROC, RegisterDrawWindow : PROC
	extrn numberofdrawwindows : dword
	extrn WaitingProc : proc, YesNoProc : proc
	extrn SaveFileDialog : PROC
	public hwndFrame, hwndClient
include win32.asi           ; some 32-bit constants and structures
include win32.ase
include commdlg.asi
include fdid.asi
include fdui.asi
	.DATA
copyright        db 'Fractal Designer 1.0 Copyright (c) LADsoft, 1998',0
hInst            dd 0
hMenuMain	dd	?
hwndClient	dd	?
hwndFrame	dd	?
hAccel		dd	?
childxpos	dd	?
childypos	dd	?
szTitleName      db 'Fractal Designer 1.0',0
szFrameClassName      db 'LADsoftFDFrame',0
szDrawClassName      db 'LADsoftFDDraw',0
szClientClassName db	'MDICLIENT',0
szMainAccel	db	'MAINACCELERATORS',0
szMainMenu	db	'MAINMENU',0
szAboutDialog	db	'ABOUTDLG',0
szAbortDialog	db	'ABORTDLG',0
szAboutCapt	db	'About Fractal Designer',0
szFDIcon	db	'FDICON',0
psShow		db 	'SHOW',0
	extrn	DrawProc : PROC, IntFromProfile : PROC, IntToProfile : PROC
	.CODE
;-----------------------------------------------------------------------------
;
; This is where control is received from the loader.
;
start	PROC
	LOCAL	hAceel : dword, 
		msg : MSGSTRUCT, wc : WNDCLASS
        call    GetModuleHandle,0         ; get hmod (in eax)
        mov     [hInst], eax            ; hInst is same as HMODULE
                                        ; in the Win32 world
        call    FindWindow,offset szFrameClassName,0
        or      eax,eax
        jnz      no_reg_class
;
;
; initialize the WndClass structure
;
        mov     [wc.clsStyle], CS_HREDRAW + CS_VREDRAW + CS_GLOBALCLASS
        mov     [wc.clsLpfnWndProc], offset WndProc
        mov     [wc.clsCbClsExtra], 0
        mov     [wc.clsCbWndExtra], 0
        mov     eax, [hInst]
        mov     [wc.clsHInstance], eax
        call    LoadIcon,[hInst],offset szFDIcon
        mov     [wc.clsHIcon], eax
        call    LoadCursor,0,IDC_ARROW
        mov     [wc.clsHCursor], eax
        mov     [wc.clsHbrBackground], COLOR_APPWORKSPACE + 1
        mov     [dword ptr wc.clsLpszMenuName], 0
        mov     [dword ptr wc.clsLpszClassName], offset szFrameClassName
	lea	eax,[wc]
        call    RegisterClass,eax
	call	RegisterDrawWindow, [hInst]
no_reg_class:
; load resources and open frame
;
	call	LoadMenu,[hInst],offset szMainMenu
	mov	[hMenuMain],eax
	call	LoadAccelerators, [hInst],offset szMainAccel
	mov	[hAccel],eax
        call    CreateWindowEx, 0, offset szFrameClassName, offset szTitleName, 
			WS_OVERLAPPEDWINDOW OR WS_CLIPCHILDREN, 
			CW_USEDEFAULT, 
			CW_USEDEFAULT, 
			CW_USEDEFAULT, 
			CW_USEDEFAULT, 
			0,[hMenuMain],[hInst],0
        mov     [hwndFrame], eax
	lea	esi,[psShow]
	mov	eax,SW_SHOWNORMAL
	call	IntFromProfile
        call    ShowWindow, [hwndFrame],eax
        call    UpdateWindow, [hwndFrame]
;
; handle messages
;
msg_loop:
	lea	eax,[msg]
        call    GetMessage,eax,0,0,0
        cmp     ax, 0
        je      end_loop
	lea	eax,[msg]
	call	TranslateMDISysAccel,[hwndClient],eax
	or	eax,eax
	jnz	msg_loop
	lea	eax,[msg]
	call	TranslateAccelerator,[hwndFrame],[hAccel],eax
	or	eax,eax
	jnz	msg_loop
	lea	eax,[msg]
        call    TranslateMessage, eax
	lea	eax,[msg]
        call    DispatchMessage, eax
        jmp     msg_loop
end_loop:
        call    ExitProcess, [msg.msWPARAM]
        ; we never get to here
start	endp
;-----------------------------------------------------------------------------
public WndProc
WndProc PROC uses ebx edi esi, hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD
;
; WARNING: Win32 requires that EBX, EDI, and ESI be preserved!  We comply
; with this by listing those regs after the 'uses' statement in the 'proc'
; line.  This allows the Assembler to save them for us.
;
        LOCAL   csx : CLIENTCREATESTRUCT, 
			mf_state : DWORD
	mov	eax,[wmsg]
	call	Dispatch
	dd	6
	dd	WM_COMMAND,wmcommand
	dd	WM_DESTROY,wmdestroy
	dd	WM_CREATE,wmcreate
	dd	WM_QUERYENDSESSION,wmqueryend
	dd	WM_INITMENUPOPUP,wminitmenupopup
	dd	WM_SIZE,wmsize
	jnc	finish
	call	wmdefault
finish:
	ret
wmdefault	PROC
        call    DefFrameProc,[hwnd],[hwndClient],[wmsg],[wparam],[lparam]
	ret
wmdefault	ENDP
wmcreate PROC
	mov	eax,[hMenuMain]
	mov	[csx.hWindowMenu],eax
	mov	[csx.idFirstChild],IDM_FIRSTCHILD
	lea	eax,[csx]
        call    CreateWindowEx, 0, offset szClientClassName, 0, 
			WS_CHILD OR WS_CLIPCHILDREN OR WS_VISIBLE, 
			CW_USEDEFAULT, 
			CW_USEDEFAULT, 
			CW_USEDEFAULT, 
			CW_USEDEFAULT, 
			[hwnd],1,[hInst],eax
	mov	[hwndClient],eax
;
; set up the window for the project list
;
	call	GetSubMenu,[hMenuMain],ProjectsMenuItem
	call	SendMessage,[hwndClient],WM_MDISETMENU,hMenuMain,eax
;
	sub	eax,eax
	ret
wmcreate ENDP
wmdestroy PROC
        call    PostQuitMessage,0
	sub	eax,eax
	ret
wmdestroy ENDP
wmqueryend	PROC
       call	DialogBoxParam,[hInst],offset szAbortDialog,[hwnd],offset YesNoProc,0
	ret
wmqueryend	ENDP
wminitmenupopup PROC
	mov	[mf_state],MF_GRAYED
	test	[numberofdrawwindows],-1
	jz	wmimpz
	mov	[mf_state],MF_ENABLED
wmimpz:
	call	EnableMenuItem,[hMenuMain],IDM_CLOSE,[mf_state]
	call	EnableMenuItem,[hMenuMain],IDM_SAVEAS,[mf_state]
	call	EnableMenuItem,[hMenuMain],IDM_SAVE,[mf_state]
	call	EnableMenuItem,[hMenuMain],IDM_CASCADE,[mf_state]
	call	EnableMenuItem,[hMenuMain],IDM_TILE,[mf_state]
	call	EnableMenuItem,[hMenuMain],IDM_ARRANGE,[mf_state]
	sub	eax,eax
	ret
wminitmenupopup	ENDP
wmsize	PROC
	cmp	[wparam],SIZEFULLSCREEN
	jnz	wmsnma
	mov	eax,SW_SHOWMAXIMIZED
	jmp	wmsx
wmsnma:
	cmp	[wparam],SIZEICONIC
	jnz	wmsnmi
	mov	eax,SW_SHOWMINIMIZED
	jmp	wmsx
wmsnmi:
	cmp	[wparam],SIZENORMAL
	jnz	wmsnmx2
	mov	eax,SW_SHOWNORMAL
wmsx:
	push	esi
	push	edi
	lea	esi,[psShow]
	call	IntToProfile
	pop	edi
	pop	esi
wmsnmx2:
	call	wmdefault
	sub	eax,eax
	ret
wmsize	ENDP
wmcommand PROC
	mov	eax,[wparam]
	movzx	eax,ax	; get rid of accel flag
	call	Dispatch
	dd	6
	dd	IDM_ABOUT,wmcabout
	dd	IDM_NEWDRAW,wmcnewdraw
	dd	IDM_EXIT,wmcexit
	dd	IDM_CASCADE,wmccascade
	dd	IDM_TILE,wmctile
	dd	IDM_ARRANGE,wmcarrange
	jnc	wmcx
;
; we didn't interp, send to active window
;	
	call	SendMessage,[hwndClient],WM_MDIGETACTIVE,0,0
	push	eax
	call	IsWindow,eax
	or	eax,eax
	pop	eax
	jz	wmcnx
	call	SendMessage,eax,WM_COMMAND,[wparam],[lparam]
wmcnx:
;
; and to DefFrameProc
;
	call	wmdefault
	sub	eax,eax
wmcx:
	ret
wmcommand ENDP
wmcabout PROC
       call	DialogBoxParam,[hInst],offset szAboutDialog,[hwnd],offset WaitingProc,0
	sub	eax,eax
	ret
wmcabout ENDP
wmcnewdraw PROC
	call	CreateDrawWindow, [hInst]
	sub	eax,eax
	ret
wmcnewdraw ENDP
wmcexit PROC
	call	SendMessage,[hwnd],WM_QUERYENDSESSION,0,0
	jz	wmcnex
      	call	SendMessage,[hwnd],WM_CLOSE,0,0
wmcnex:
	sub	eax,eax
	ret
wmcexit ENDP
wmccascade PROC
	call	SendMessage,[hwndClient],WM_MDICASCADE,0,0
	sub	eax,eax
	ret
wmccascade ENDP
wmctile PROC
	call	SendMessage,[hwndClient],WM_MDITILE,0,0
	sub	eax,eax
	ret
wmctile ENDP
wmcarrange PROC
	call	SendMessage,[hwndClient],WM_MDIICONARRANGE,0,0
	sub	eax,eax
	ret
wmcarrange ENDP
WndProc	ENDP
end start

						