Thank you! I looked over a lot of the api docs, but not the source ones...
The snippit you found showed me exactly what I needed to do. *Main> k <- regOpenKey hKEY_CURRENT_USER "Software\\7-Zip" Loading package bytestring-0.9.2.1 ... linking ... done. Loading package Win32-2.2.2.0 ... linking ... done. *Main> withTString "A" $ \v -> regSetValueEx k "foo" rEG_SZ v (length "foo" * s izeOf(undefined :: TCHAR)) Works perfectly, so I can copy binary values too. Didn't think to look at the helper functions to see how the regular version is used from them... Haven't programmed in a while, must be pretty rusty... LOL. My project is now saved from going .py! :D .. not anything against python, I'm using django on another project and it's great, but haskell comes to mind for this app.... Thanks. On Sun, Jul 22, 2012 at 4:33 AM, Simon Peter Nicholls <si...@mintsource.org> wrote: > The Registry module has code that will be helpful, as it includes a > helper function for the common use case of setting String values. > > regSetStringValue :: HKEY -> String -> String -> IO () > regSetStringValue hk key val = > withTString val $ \ v -> > regSetValueEx hk key rEG_SZ v (length val * sizeOf (undefined::TCHAR)) > > http://www.haskell.org/ghc/docs/7.4.2/html/libraries/Win32-2.2.2.0/src/System-Win32-Registry.html > > On Sun, Jul 22, 2012 at 7:11 AM, Anonymous Void <bitsofch...@gmail.com> wrote: >> Hi, >> >> I'm working on a project that will require me to create and possibly >> set registry keys. >> I don't have much experience with programming on Windows either, >> but I'm having to learn as you don't get many *nix PCs at a computer >> repair shop, lol. >> >> I found a mailing list post showing how to read registry keys and was >> able to make a function based off of it, >> but I have no idea what to put into some of the arguments for >> regSetValueEx or regCreateKeyEx, so I'm stuck. >> Also, what's the best way to recursively traverse trees in the >> registry, are there any functions for it? >> >> Can someone please help me out with this? >> Thank you. >> >> >> {-# LANGUAGE ForeignFunctionInterface #-} >> >> import System.Win32.Types >> import System.Win32.Registry >> import Foreign.Ptr (castPtr) >> import Foreign.Marshal.Alloc (allocaBytes) >> import Foreign.C.String (peekCWString, withCWString) >> import Control.Exception (bracket, throwIO) >> >> -- // parse a string from a registry value of certain type >> parseRegString :: RegValueType -> LPBYTE -> IO String >> parseRegString ty mem >> | ty == rEG_SZ = peekCWString (castPtr mem) >> | ty == rEG_EXPAND_SZ = peekCWString (castPtr mem) >>= >> expandEnvironmentStrings >> | otherwise = ioError (userError "Invalid registry value type") >> >> -- // FFI import of the ExpandEnvironmentStrings function needed >> -- // to make use of the registry values >> expandEnvironmentStrings :: String -> IO String >> expandEnvironmentStrings toexpand = >> withCWString toexpand $ \input -> >> allocaBytes 512 $ \output -> >> do c_ExpandEnvironmentStrings input output 256 >> peekCWString output >> foreign import stdcall unsafe "windows.h ExpandEnvironmentStringsW" >> c_ExpandEnvironmentStrings :: LPCTSTR -> LPTSTR -> DWORD -> IO DWORD >> >> ---- >> get_key :: HKEY -> String -> String -> IO String >> get_key cat loc key = >> bracket op regCloseKey $ \x -> >> allocaBytes 512 $ \mem -> >> do ty <- regQueryValueEx x key mem 512 >> parseRegString ty mem >> where op = regOpenKeyEx cat loc kEY_QUERY_VALUE >> >> set_key :: HKEY -> String -> String -> IO () >> set_key cat loc key = >> regSetValueEx cat loc rEG_SZ??? "LPTSTR? What do I put here?" >> magic_win32_number_here? >> where op = regOpenKeyEx cat loc kEY_SET_VALUE >> >> main = get_key hKEY_CURRENT_USER loc key >>= print >> where loc = "Software\\7-Zip" >> key = "Test" >> >> _______________________________________________ >> Haskell-Cafe mailing list >> Haskell-Cafe@haskell.org >> http://www.haskell.org/mailman/listinfo/haskell-cafe > > _______________________________________________ > Haskell-Cafe mailing list > Haskell-Cafe@haskell.org > http://www.haskell.org/mailman/listinfo/haskell-cafe _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
