module Win32Process where

import Win32Types
import StdDIS

-- constant to wait for a very long time.
iNFINITE :: DWORD
iNFINITE =
  unsafePerformIO(
    prim_iNFINITE
    >>= \  res1  ->
    (return (res1)))
foreign import  ccall unsafe "Win32Process_stub_ffi.h prim_iNFINITE" prim_iNFINITE :: IO (Word32)

sleep :: DWORD -> IO ()
sleep arg1 =
  prim_sleep arg1
foreign import  ccall unsafe "Win32Process_stub_ffi.h prim_sleep" prim_sleep :: Word32 -> IO ()
