module System.Win32.Console.HWND where
import Control.Concurrent ( threadDelay )
import Control.Exception ( bracket )
import Foreign.Ptr ( nullPtr )
import Graphics.Win32.Window ( c_FindWindow )
import Graphics.Win32.GDI.Types ( HWND )
import System.Win32.Console.Title ( getConsoleTitle, setConsoleTitle )
import System.Win32.Process ( getCurrentProcessId )
import System.Win32.String ( withTString )
import System.Win32.Time ( getTickCount )
getConsoleHWND :: IO HWND
getConsoleHWND
= bracket getConsoleTitle setConsoleTitle $ \_ -> do
time <- getTickCount
pid <- getCurrentProcessId
let unique = show time ++ show pid
setConsoleTitle unique
threadDelay (42*1000)
withTString unique $ \punique ->
c_FindWindow nullPtr punique