#include once "windows.bi"

#macro ShowError ()
scope
  dim MENSAGEM as zstring * 255
  FormatMessage( FORMAT_MESSAGE_FROM_SYSTEM, null,GetLastError(),null,@MENSAGEM,255,null )
  MENSAGEM += " na linha " & __LINE__
  MessageBox(null,@MENSAGEM,__FILE__,MB_OK or MB_ICONERROR)
end scope
#endmacro

#macro GetError( MYSTRING )
scope
  dim MENSAGEM as zstring * 255
  FormatMessage( FORMAT_MESSAGE_FROM_SYSTEM, null,GetLastError(),null,@MENSAGEM,255,null )
  MENSAGEM += " na linha " & __LINE__
  MYSTRING = MENSAGEM    
end scope
#endmacro

function GetMessageName(MSGNUMBER as integer) as string
  
  if MSGNUMBER > WM_USER and MSGNUMBER < &h7FFF then
    return "WM_USER+0x"+hex$(MSGNUMBER-WM_USER,4)
  end if
  scope
    dim SMSG as string,IMSG as integer
    Restore MessageDatas
    do
      read SMSG,IMSG
      print SMSG,IMSG
      if IMSG=0 andalso SMSG="" then 
        SMSG = "{0x"+hex$(MSGNUMBER,8)+"}": exit do
      end if
    loop until IMSG = MSGNUMBER
    return SMSG
  end scope  
  
end function

#ifndef WM_DDE_FIRST
const WM_DDE_FIRST = &h3E0
#endif
MessageDatas:
data "WM_ACTIVATE",&h6,"WM_ACTIVATEAPP",&h1C,"WM_AFXFIRST",&h360,"WM_AFXLAST",&h37F
data "WM_APP",&h8000,"WM_ASKCBFORMATNAME",&h30C,"WM_CANCELJOURNAL",&h4B,"WM_CANCELMODE",&h1F
data "WM_CAPTURECHANGED",&h215,"WM_CHANGECBCHAIN",&h30D,"WM_CHAR",&h102,"WM_CHARTOITEM",&h2F
data "WM_CHILDACTIVATE",&h22,"WM_CLEAR",&h303,"WM_CLOSE",&h10,"WM_COMMAND",&h111
data "WM_COMMNOTIFY",&h44,"WM_COMPACTING",&h41,"WM_COMPAREITEM",&h39,"WM_CONTEXTMENU",&h7B
data "WM_CONVERTREQUESTEX",&h108,"WM_COPY",&h301,"WM_COPYDATA",&h4A,"WM_CREATE",&h1
data "WM_CTLCOLORBTN",&h135,"WM_CTLCOLORDLG",&h136,"WM_CTLCOLOREDIT",&h133
data "WM_CTLCOLORLISTBOX",&h134,"WM_CTLCOLORMSGBOX",&h132,"WM_CTLCOLORSCROLLBAR",&h137
data "WM_CTLCOLORSTATIC",&h138,"WM_CUT",&h300,"WM_DDE_ACK",(WM_DDE_FIRST+4)
data "WM_DDE_ADVISE",(WM_DDE_FIRST+2),"WM_DDE_DATA",(WM_DDE_FIRST+5)
data "WM_DDE_EXECUTE",(WM_DDE_FIRST+8),"WM_DDE_FIRST",&h3E0,"WM_DDE_INITIATE",(WM_DDE_FIRST)
data "WM_DDE_LAST",(WM_DDE_FIRST+8),"WM_DDE_POKE",(WM_DDE_FIRST+7)
data "WM_DDE_REQUEST",(WM_DDE_FIRST+6),"WM_DDE_TERMINATE",(WM_DDE_FIRST+1)
data "WM_DDE_UNADVISE",(WM_DDE_FIRST+3),"WM_DEADCHAR",&h103,"WM_DELETEITEM",&h2D
data "WM_DESTROY",&h2,"WM_DESTROYCLIPBOARD",&h307,"WM_DEVICECHANGE",&h219
data "WM_DEVMODECHANGE",&h1B,"WM_DISPLAYCHANGE",&h7E,"WM_DRAWCLIPBOARD",&h308
data "WM_DRAWITEM",&h2B,"WM_DROPFILES",&h233,"WM_ENABLE",&hA,"WM_ENDSESSION",&h16
data "WM_ENTERIDLE",&h121,"WM_ENTERMENULOOP",&h211,"WM_ERASEBKGND",&h14
data "WM_EXITMENULOOP",&h212,"WM_FONTCHANGE",&h1D,"WM_GETDLGCODE",&h87,"WM_GETFONT",&h31
data "WM_GETHOTKEY",&h33,"WM_GETICON",&h7F,"WM_GETMINMAXINFO",&h24,"WM_GETTEXT",&hD
data "WM_GETTEXTLENGTH",&hE,"WM_HANDHELDFIRST",&h358,"WM_HANDHELDLAST",&h35F
data "WM_HELP",&h53,"WM_HOTKEY",&h312,"WM_HSCROLL",&h114,"WM_HSCROLLCLIPBOARD",&h30E
data "WM_ICONERASEBKGND",&h27,"WM_IME_CHAR",&h286,"WM_IME_COMPOSITION",&h10F
data "WM_IME_COMPOSITIONFULL",&h284,"WM_IME_CONTROL",&h283,"WM_IME_ENDCOMPOSITION",&h10E
data "WM_IME_KEYDOWN",&h290,"WM_IME_KEYLAST",&h10F,"WM_IME_KEYUP",&h291
data "WM_IME_NOTIFY",&h282,"WM_IME_SELECT",&h285,"WM_IME_SETCONTEXT",&h281
data "WM_IME_STARTCOMPOSITION",&h10D,"WM_INITDIALOG",&h110,"WM_INITMENU",&h116
data "WM_INITMENUPOPUP",&h117,"WM_INPUTLANGCHANGE",&h51,"WM_INPUTLANGCHANGEREQUEST",&h50
data "WM_KEYDOWN",&h100,"WM_KEYFIRST",&h100,"WM_KEYLAST",&h108,"WM_KEYUP",&h101
data "WM_KILLFOCUS",&h8,"WM_LBUTTONDBLCLK",&h203,"WM_LBUTTONDOWN",&h201
data "WM_LBUTTONUP",&h202,"WM_MBUTTONDBLCLK",&h209,"WM_MBUTTONDOWN",&h207
data "WM_MBUTTONUP",&h208,"WM_MDIACTIVATE",&h222,"WM_MDICASCADE",&h227
data "WM_MDICREATE",&h220,"WM_MDIDESTROY",&h221,"WM_MDIGETACTIVE",&h229
data "WM_MDIICONARRANGE",&h228,"WM_MDIMAXIMIZE",&h225,"WM_MDINEXT",&h224
data "WM_MDIREFRESHMENU",&h234,"WM_MDIRESTORE",&h223,"WM_MDISETMENU",&h230
data "WM_MDITILE",&h226,"WM_MEASUREITEM",&h2C,"WM_MENUCHAR",&h120,"WM_MENUSELECT",&h11F
data "WM_MOUSEACTIVATE",&h21,"WM_MOUSEMOVE",&h200,"WM_MOUSELAST",&h209
data "WM_MOUSEMOVE",&h200,"WM_MOVE",&h3,"WM_MOVING",&h216,"WM_NCACTIVATE",&h86
data "WM_NCCALCSIZE",&h83,"WM_NCCREATE",&h81,"WM_NCDESTROY",&h82,"WM_NCHITTEST",&h84
data "WM_NCLBUTTONDBLCLK",&hA3,"WM_NCLBUTTONDOWN",&hA1,"WM_NCLBUTTONUP",&hA2
data "WM_NCMBUTTONDBLCLK",&hA9,"WM_NCMBUTTONDOWN",&hA7,"WM_NCMBUTTONUP",&hA8
data "WM_NCMOUSEMOVE",&hA0,"WM_NCPAINT",&h85,"WM_NCRBUTTONDBLCLK",&hA6
data "WM_NCRBUTTONDOWN",&hA4,"WM_NCRBUTTONUP",&hA5,"WM_NEXTDLGCTL",&h28,"WM_NEXTMENU",&h213
data "WM_NOTIFY",&h4E,"WM_NOTIFYFORMAT",&h55,"WM_NULL",&h0,"WM_OTHERWINDOWCREATED",&h42
data "WM_OTHERWINDOWDESTROYED",&h43,"WM_PAINT",&hF,"WM_PAINTCLIPBOARD",&h309
data "WM_PAINTICON",&h26,"WM_PALETTECHANGED",&h311,"WM_PALETTEISCHANGING",&h310
data "WM_PARENTNOTIFY",&h210,"WM_PASTE",&h302,"WM_PENWINFIRST",&h380,"WM_PENWINLAST",&h38F
data "WM_POWER",&h48,"WM_POWERBROADCAST",&h218,"WM_PRINT",&h317,"WM_PRINTCLIENT",&h318
data "WM_QUERYDRAGICON",&h37,"WM_QUERYENDSESSION",&h11,"WM_QUERYNEWPALETTE",&h30F
data "WM_QUERYOPEN",&h13,"WM_QUEUESYNC",&h23,"WM_QUIT",&h12,"WM_RBUTTONDBLCLK",&h206
data "WM_RBUTTONDOWN",&h204,"WM_RBUTTONUP",&h205,"WM_RENDERALLFORMATS",&h306
data "WM_RENDERFORMAT",&h305,"WM_SETCURSOR",&h20,"WM_SETFOCUS",&h7,"WM_SETFONT",&h30
data "WM_SETHOTKEY",&h32,"WM_SETICON",&h80,"WM_SETREDRAW",&hB,"WM_SETTEXT",&hC
data "WM_SETTINGCHANGE",&h1A,"WM_SHOWWINDOW",&h18,"WM_SIZE",&h5,"WM_SIZECLIPBOARD",&h30B
data "WM_SIZING",&h214,"WM_SPOOLERSTATUS",&h2A,"WM_STYLECHANGED",&h7D
data "WM_STYLECHANGING",&h7C,"WM_SYSCHAR",&h106,"WM_SYSCOLORCHANGE",&h15
data "WM_SYSCOMMAND",&h112,"WM_SYSDEADCHAR",&h107,"WM_SYSKEYDOWN",&h104
data "WM_SYSKEYUP",&h105,"WM_TCARD",&h52,"WM_TIMECHANGE",&h1E,"WM_TIMER",&h113
data "WM_UNDO",&h304,"WM_USER",&h400,"WM_USERCHANGED",&h54,"WM_VKEYTOITEM",&h2E
data "WM_VSCROLL",&h115,"WM_VSCROLLCLIPBOARD",&h30A,"WM_WINDOWPOSCHANGED",&h47
data "WM_WINDOWPOSCHANGING",&h46,"WM_WININICHANGE",&h1A
data "",0