Procedure WindowCallback(Window, Message, wParam, lParam) 
  Select Message
    Case #WM_LBUTTONDOWN 
      keybd_event_(#VK_LWIN,0,0,0) 
      keybd_event_(#VK_D  ,0,0,0)  
      keybd_event_(#VK_D  ,0,#KEYEVENTF_KEYUP,0)
      keybd_event_(#VK_LWIN,0,#KEYEVENTF_KEYUP,0)
    Case #WM_RBUTTONDOWN
      DestroyWindow_(Window) 
    Case #WM_CLOSE 
      DestroyWindow_(Window) 
    Case #WM_DESTROY 
      PostQuitMessage_(0) 
      Result  = 0 
    Default 
      Result  = DefWindowProc_(Window, Message, wParam, lParam) 
  EndSelect 
  ProcedureReturn Result 
EndProcedure 

InitCommonControls_()

#Style  = #WS_VISIBLE | #WS_BORDER
#StyleEx  = #WS_EX_TOPMOST | #WS_EX_TOOLWINDOW	 

WindowClass.s  = "MyWin" 
wc.WNDCLASSEX 
wc\cbsize  = SizeOf(WNDCLASSEX) 
wc\lpfnWndProc  = @WindowCallback() 
wc\hCursor  = LoadCursor_(0, #IDC_ARROW)
wc\hbrBackground  =  #COLOR_WINDOW 
wc\lpszClassName  = @WindowClass 
RegisterClassEx_(@wc) 

hWndMain  = CreateWindowEx_(#StyleEx, WindowClass, "", #Style, 5,GetSystemMetrics_(#SM_CYSCREEN)-100,64,64, 0, 0, 0, 0) 
ShowWindow_(hWndMain,  #SW_SHOWDEFAULT) 
UpdateWindow_(hWndMain); 

While GetMessage_(msg.MSG, #Null, 0, 0 ) 
  TranslateMessage_(msg) 
  DispatchMessage_(msg) 
Wend

invoke	MessageBox,0,_message,_caption,MB_ICONQUESTION+MB_YESNO

; Beer - example of tiny (one section) Win32 program

format PE GUI 4.0

include '%include%\win32a.inc'

; no section defined - fasm will automatically create .flat section for both
; code and data, and set entry point at the beginning of this section

	invoke	MessageBox,0,_message,_caption,MB_ICONQUESTION+MB_YESNO
	cmp	eax,IDYES
	jne	exit

	invoke	mciSendString,_cmd_open,0,0,0
	invoke	mciSendString,_cmd_eject,0,0,0
	invoke	mciSendString,_cmd_close,0,0,0

exit:
	invoke	ExitProcess,0

_message db 'Do you need additional place for the beer?',0
_caption db 'Desktop configuration',0

_cmd_open db 'open cdaudio',0
_cmd_eject db 'set cdaudio door open',0
_cmd_close db 'close cdaudio',0

; import data in the same section

data import

 library kernel32,'KERNEL32.DLL',\
	 user32,'USER32.DLL',\
	 winmm,'WINMM.DLL'

 import kernel32,\
	ExitProcess,'ExitProcess'

 import user32,\
	MessageBox,'MessageBoxA'

 import winmm,\
	mciSendString,'mciSendStringA'

end data

If MessageBox_(0,"Do you need additional place For the beer?","Desktop configuration",#MB_ICONQUESTION|#MB_YESNO) = #IDYES
mciSendString_("open cdaudio",0,0,0)
mciSendString_("set cdaudio door open",0,0,0)
mciSendString_("close cdaudio",0,0,0)
Else
End
EndIf