Registry module #1909
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,17 @@ | ||
| // Auto-Generated by FAKE; do not edit | ||
| namespace System | ||
| open System.Reflection | ||
|
|
||
| [<assembly: AssemblyTitleAttribute("FAKE - F# CRUD functionality for Windows registry")>] | ||
| [<assembly: AssemblyProductAttribute("FAKE - F# Make")>] | ||
| [<assembly: AssemblyVersionAttribute("5.0.0")>] | ||
| [<assembly: AssemblyInformationalVersionAttribute("5.0.0-beta025")>] | ||
| [<assembly: AssemblyFileVersionAttribute("5.0.0")>] | ||
| do () | ||
|
|
||
| module internal AssemblyVersionInformation = | ||
| let [<Literal>] AssemblyTitle = "FAKE - F# CRUD functionality for Windows registry" | ||
| let [<Literal>] AssemblyProduct = "FAKE - F# Make" | ||
| let [<Literal>] AssemblyVersion = "5.0.0" | ||
| let [<Literal>] AssemblyInformationalVersion = "5.0.0-beta025" | ||
| let [<Literal>] AssemblyFileVersion = "5.0.0" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,18 @@ | ||
| <Project Sdk="Microsoft.NET.Sdk" ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> | ||
| <PropertyGroup> | ||
| <TargetFrameworks>net46;netstandard1.6;netstandard2.0</TargetFrameworks> | ||
| <AssemblyName>Fake.Windows.Registry</AssemblyName> | ||
| <OutputType>Library</OutputType> | ||
| </PropertyGroup> | ||
| <PropertyGroup> | ||
| <DefineConstants>$(DefineConstants);FX_NO_REMOTING;USE_ASYNC_LOCAL</DefineConstants> | ||
| </PropertyGroup> | ||
| <PropertyGroup Condition=" '$(Configuration)' == 'Release' "> | ||
| <DefineConstants>$(DefineConstants);RELEASE</DefineConstants> | ||
| </PropertyGroup> | ||
| <ItemGroup> | ||
| <Compile Include="AssemblyInfo.fs" /> | ||
| <Compile Include="Registry.fs" /> | ||
| </ItemGroup> | ||
| <Import Project="..\..\..\.paket\Paket.Restore.targets" /> | ||
| </Project> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,112 @@ | ||
| /// Contains functions which allow to read and write information from/to the registry. | ||
| module Fake.Windows.Registry | ||
|
There was a problem hiding this comment. Can we add a sample to the reference documentation. We would also like to add |
||
|
|
||
| open Microsoft.Win32 | ||
|
|
||
| /// Registry base keys. | ||
| type RegistryBaseKey = | ||
| | HKEYLocalMachine | ||
| | HKEYClassesRoot | ||
| | HKEYUsers | ||
| | HKEYCurrentUser | ||
| | HKEYCurrentConfig | ||
| | HKEYPerformanceData | ||
|
|
||
| /// Maps the RegistryBaseKey to a RegistryKey | ||
| /// [omit] | ||
| let getKey name = | ||
| match name with | ||
| | HKEYLocalMachine -> Registry.LocalMachine | ||
| | HKEYClassesRoot -> Registry.ClassesRoot | ||
| | HKEYUsers -> Registry.Users | ||
| | HKEYCurrentUser -> Registry.CurrentUser | ||
| | HKEYCurrentConfig -> Registry.CurrentConfig | ||
| | HKEYPerformanceData -> Registry.PerformanceData | ||
|
|
||
| /// Maps the RegistryBaseKey to a RegistryKey for a 64bit System | ||
| /// [omit] | ||
| let get64BitKey name = | ||
| match name with | ||
| | HKEYLocalMachine -> RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64) | ||
| | HKEYClassesRoot -> RegistryKey.OpenBaseKey(RegistryHive.ClassesRoot, RegistryView.Registry64) | ||
| | HKEYUsers -> RegistryKey.OpenBaseKey(RegistryHive.Users, RegistryView.Registry64) | ||
| | HKEYCurrentUser -> RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, RegistryView.Registry64) | ||
| | HKEYCurrentConfig -> RegistryKey.OpenBaseKey(RegistryHive.CurrentConfig, RegistryView.Registry64) | ||
| | HKEYPerformanceData -> RegistryKey.OpenBaseKey(RegistryHive.PerformanceData, RegistryView.Registry64) | ||
|
|
||
| /// Maps the RegistryBaseKey to a RegistryKey for a 32bit System | ||
| /// [omit] | ||
| let get32BitKey name = | ||
| match name with | ||
| | HKEYLocalMachine -> RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32) | ||
| | HKEYClassesRoot -> RegistryKey.OpenBaseKey(RegistryHive.ClassesRoot, RegistryView.Registry32) | ||
| | HKEYUsers -> RegistryKey.OpenBaseKey(RegistryHive.Users, RegistryView.Registry32) | ||
| | HKEYCurrentUser -> RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, RegistryView.Registry32) | ||
| | HKEYCurrentConfig -> RegistryKey.OpenBaseKey(RegistryHive.CurrentConfig, RegistryView.Registry32) | ||
| | HKEYPerformanceData -> RegistryKey.OpenBaseKey(RegistryHive.PerformanceData, RegistryView.Registry32) | ||
|
|
||
| /// Gets a 64-bit registry key | ||
| let getRegistryKey64 baseKey subKey (writePermission : bool) = | ||
| (get64BitKey baseKey).OpenSubKey(subKey, writePermission) | ||
|
|
||
| /// Gets a registry key and falls back to 32 bit if the 64bit key is not there | ||
| let getRegistryKey baseKey subKey (writePermission : bool) = | ||
| let x64BitKey = (getKey baseKey).OpenSubKey(subKey, writePermission) | ||
| if (isNull >> not) x64BitKey then x64BitKey else | ||
| (get32BitKey baseKey).OpenSubKey(subKey, writePermission) // fall back to 32 bit | ||
|
|
||
| /// Gets a registry value as string | ||
| let getRegistryValue baseKey subKey name = | ||
| use key = getRegistryKey baseKey subKey false | ||
| if isNull key then | ||
| failwithf "Registry subkey %s could not be found for key %A" subKey baseKey | ||
| let value = key.GetValue name | ||
| if isNull value then | ||
| failwithf "Registry value is null for key %s" (key.ToString()) | ||
| value.ToString() | ||
|
|
||
| /// Gets a registry value as string | ||
| let getRegistryValue64 baseKey subKey name = | ||
| use key = getRegistryKey64 baseKey subKey false | ||
| if isNull key then | ||
| failwithf "Registry subkey %s could not be found for key %A" subKey baseKey | ||
| let value = key.GetValue name | ||
| if isNull value then | ||
| failwithf "Registry value is null for key %s" (key.ToString()) | ||
| value.ToString() | ||
|
|
||
| /// Sets a registry value | ||
| let setRegistryValue<'T> baseKey subKey name (value : 'T) = | ||
| use key = getRegistryKey baseKey subKey true | ||
| key.SetValue(name, value) | ||
|
|
||
| /// Deletes the registry value from its key | ||
| let deleteRegistryValue baseKey subKey name = | ||
| use key = getRegistryKey baseKey subKey true | ||
| key.DeleteValue name | ||
|
|
||
| /// Returns all the value names of a registry key | ||
| let getRegistryValueNames baseKey subKey = | ||
| use key = getRegistryKey baseKey subKey false | ||
| key.GetValueNames() | ||
|
|
||
| /// Returns whether or not a registry value name exists for a key | ||
| let valueExistsForKey = fun baseKey subKey name -> | ||
| getRegistryValueNames baseKey subKey | ||
| |> Seq.exists (fun n -> n = name) | ||
|
|
||
| /// Create a registry subKey | ||
| let createRegistrySubKey baseKey subKey = | ||
| use key = getKey baseKey | ||
| key.CreateSubKey subKey |> ignore | ||
|
|
||
| /// Deletes a registry subKey | ||
| let deleteRegistrySubKey baseKey subKey = | ||
| use key = getKey baseKey | ||
| key.DeleteSubKey subKey | ||
|
|
||
| /// Returns all the subKey names of a registry key | ||
| let getRegistrySubKeyNames baseKey subKey = | ||
| use key = getRegistryKey baseKey subKey false | ||
| key.GetSubKeyNames() | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| group netcore | ||
|
|
||
| FSharp.Core | ||
| NETStandard.Library | ||
| Microsoft.Win32.Registry |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Can we remove this change?
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Yep, just autogenerated msvc stuff, didn't realize that was added in
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Oh actually, it looks like we need that. That's in the current master of fake.sln as well