win32 SetForegroundWindow in haskell

Question

I've noticed the Haskell Win32 api does not have a SetForegroundWindow function and I'm not skilled enough in haskell to add this feature myself. Would there be any way to replicate this using haskell or has any one made their own wrapper using ffi?

Answer 1

Here's a simple wrapper using the FFI:

{-# LANGUAGE ForeignFunctionInterface #-}

module SetForegroundWindow
( setForegroundWindow
) where

import Foreign
import Graphics.Win32

foreign import stdcall safe "windows.h SetForegroundWindow"
    c_setForegroundWindow :: HWND -> IO Bool

setForegroundWindow :: HWND -> IO Bool
setForegroundWindow = c_setForegroundWindow