import Graphics.Win32.GDI.Types
import System.Win32.Types

messageBox :: HWND -> String -> String -> UINT -> IO UINT
messageBox hwnd text caption style =
  withTString text $  c_text ->
  withTString caption $  c_caption ->
  failIfZero "MessageBox" $ c_MessageBox hwnd c_text c_caption style
foreign import stdcall unsafe "windows.h MessageBoxW"
  c_MessageBox :: HWND -> LPCTSTR -> LPCTSTR -> UINT -> IO UINT

main = messageBox nullHANDLE "Hello, Win32 API(Haskell) World!" "Hello, World!" 0