From 80f6847645459dfd21e531946e1eeaf2384a2dff Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Sat, 25 Mar 2017 05:56:02 +0300 Subject: rename directories --- lib/WindowsEnv/Utils.hs | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 lib/WindowsEnv/Utils.hs (limited to 'lib/WindowsEnv/Utils.hs') diff --git a/lib/WindowsEnv/Utils.hs b/lib/WindowsEnv/Utils.hs new file mode 100644 index 0000000..c852229 --- /dev/null +++ b/lib/WindowsEnv/Utils.hs @@ -0,0 +1,30 @@ +-- | +-- Copyright : (c) 2016 Egor Tensin +-- License : MIT +-- Maintainer : Egor.Tensin@gmail.com +-- Stability : experimental +-- Portability : Windows-only + +module WindowsEnv.Utils + ( notifyEnvironmentUpdate + ) where + +import Foreign.C.Types (CIntPtr(..)) +import qualified Graphics.Win32.GDI.Types as WinAPI +import qualified Graphics.Win32.Message as WinAPI +import qualified System.Win32.Types as WinAPI + +foreign import ccall "Windows.h SendNotifyMessageW" + c_SendNotifyMessage :: WinAPI.HWND -> WinAPI.WindowMessage -> WinAPI.WPARAM -> WinAPI.LPARAM -> IO WinAPI.LRESULT + +notifyEnvironmentUpdate :: IO () +notifyEnvironmentUpdate = + WinAPI.withTString "Environment" $ \lparamPtr -> do + let wparam = 0 + let lparam = fromIntegral $ WinAPI.castPtrToUINTPtr lparamPtr + _ <- c_SendNotifyMessage allWindows messageCode wparam lparam + return () + where + messageCode = WinAPI.wM_WININICHANGE + hWND_BROADCAST = WinAPI.castUINTPtrToPtr 0xffff + allWindows = hWND_BROADCAST -- cgit v1.2.3