diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2015-06-10 21:51:24 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2015-06-10 21:51:24 +0300 |
| commit | 8f48490b3c2b10ec8d941e0744d154c3930b4d6e (patch) | |
| tree | e57b045cfe3404e4b1546786596b7efb788ca3f1 /RegUtils.hs | |
| parent | initial commit (diff) | |
| download | windows-env-8f48490b3c2b10ec8d941e0744d154c3930b4d6e.tar.gz windows-env-8f48490b3c2b10ec8d941e0744d154c3930b4d6e.zip | |
notify about environment updates
Diffstat (limited to '')
| -rw-r--r-- | RegUtils.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/RegUtils.hs b/RegUtils.hs index 677e4f8..429abec 100644 --- a/RegUtils.hs +++ b/RegUtils.hs @@ -62,6 +62,21 @@ setString key subKeyPath valueName valueValue = withTStringLen valueValue $ \(ptr, len) -> do type' <- getType key subKeyPath valueName regSetValueEx subKey valueName (fromMaybe rEG_SZ type') ptr $ len * sizeOf (undefined :: TCHAR) + notifyEnvironmentUpdate + +foreign import ccall "BroadcastSystemMessageW" + c_BroadcastSystemMessage :: DWORD -> LPDWORD -> UINT -> WPARAM -> LPARAM -> IO LONG + +notifyEnvironmentUpdate :: IO () +notifyEnvironmentUpdate = + withCWString "Environment" $ \lparamPtr -> do + let wparam = fromIntegral $ castPtrToUINTPtr nullPtr + let lparam = fromIntegral $ castPtrToUINTPtr lparamPtr + c_BroadcastSystemMessage bSF_POSTMESSAGE nullPtr wM_SETTINGCHANGE wparam lparam + return () + where + bSF_POSTMESSAGE = 0x10 + wM_SETTINGCHANGE = 0x1A delValue :: HKEY -> String -> String -> IO () delValue key subKeyPath valueName = @@ -69,6 +84,7 @@ delValue key subKeyPath valueName = withForeignPtr subKey $ \subKeyPtr -> withCWString valueName $ \valueNamePtr -> do ret <- c_RegDeleteValue subKeyPtr valueNamePtr + notifyEnvironmentUpdate case ret of 0x0 -> return () 0x2 -> ioError $ mkIOError doesNotExistErrorType "RegQueryValueEx" Nothing $ Just (subKeyPath ++ "\\" ++ valueName) |