FSX Scenery Config Program

[mdm248111]

I'm finally getting to put my (little bit) of coding knowledge to good use!
This is a simple program that will make bgls inactive or active. It will be released with The Airport Guys' Triangle North 2011 (in beta now!! )

http://www.youtube.com/watch?v=absZFdlqCRM

 

[ollyau]

If you want, instead of asking the user to define the FSX location, you can query the registry for the location.

32 bit key: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\microsoft games\flight simulator\10.0
64 bit key: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\microsoft games\flight simulator\10.0

And to get your string, check the value of SetupPath.

There's also a registry entry under HKCU that has the FSX path, but I can't quite remember exactly where right now.

 

[mdm248111]

If you want, instead of asking the user to define the FSX location, you can query the registry for the location.

32 bit key: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\microsoft games\flight simulator\10.0
64 bit key: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\microsoft games\flight simulator\10.0

And to get your string, check the value of SetupPath.

There's also a registry entry under HKCU that has the FSX path, but I can't quite remember exactly where right now.

How exactly would I get the info from the registry back into the string?

 

[scruffyduck]

This is how ADE does it in C#. This is for FSX - there is another for FS9 that I will leave you to figure out if you need it

It is set up as a static read only property but you could change it to a method of course...

/// <summary>
        /// Accessed the registry to find the current path to FSX
        /// </summary>
        /// <returns>Returns path to FSX or empty string if not found</returns>
        public static string FsxPath {
            get {
                //return string.Empty;
                string path = string.Empty;

                RegistryKey key =
                    Registry.LocalMachine.OpenSubKey(
                        @"Software\Wow6432Node\Microsoft\Microsoft Games\Flight Simulator\10.0");
                if (key != null) {
                    if (key.GetValue("SetupPath") != null) path = (string)key.GetValue("SetupPath");
                }

                key = Registry.LocalMachine.OpenSubKey(@"Software\Microsoft\Microsoft Games\flight simulator\10.0");
                if (key != null) {
                    if (key.GetValue("SetupPath") != null) path = (string)key.GetValue("SetupPath");
                }

                return path;
            }
        }

 

[mdm248111]

Jon- I really appreciate you showing me how to access the registry values, however this was coded in Visual Basic.net

If you know how this could be done in VB, I'd love to know, if not, thanks for the help above

 

[scruffyduck]

Jon- I really appreciate you showing me how to access the registry values, however this was coded in Visual Basic.net

If you know how this could be done in VB, I'd love to know, if not, thanks for the help above

Google C# to VB. I found this one:

http://www.developerfusion.com/tools/convert/csharp-to-vb/

Public Shared ReadOnly Property FsxPath() As String
	Get
		'return string.Empty;
		Dim path As String = String.Empty

		Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Wow6432Node\Microsoft\Microsoft Games\Flight Simulator\10.0")
		If key IsNot Nothing Then
			If key.GetValue("SetupPath") IsNot Nothing Then
				path = DirectCast(key.GetValue("SetupPath"), String)
			End If
		End If

		key = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Microsoft Games\flight simulator\10.0")
		If key IsNot Nothing Then
			If key.GetValue("SetupPath") IsNot Nothing Then
				path = DirectCast(key.GetValue("SetupPath"), String)
			End If
		End If

		Return path
	End Get
End Property

I don't know how good it is since I lost my VB skills rather a long time ago

There are several free on-line converters that should work for small code snippets like this

 

[mdm248111]

Sweet! I never knew that there were converters!

I'll try to implement this! Thanks!!

 

[mdm248111]

Got it working

Thanks Jon and ollyau!
http://www.youtube.com/watch?v=e16KJduhnDE

 

[scruffyduck]

No problem Michael. Converters can be your friend The online ones generally work for small snippets. Converting whole projects is another matter

 

[mdm248111]

Converting whole projects is another matter

I believe it!

note: At first that code above didn't want to work, but I found out that you have to put Imports Win.32 above the code

 

[scruffyduck]

I believe it!

note: At first that code above didn't want to work, but I found out that you have to put Imports Win.32 above the code

Well it is always good to have something to learn Michael

 

[Mr.FaosFX]

using namespace System;
using namespace Microsoft::Win32;

int main( )
{
array<String^>^ key = Registry::CurrentUser->GetSubKeyNames( );

Console::WriteLine("Subkeys within CurrentUser root key:");
for (int i=0; i<key->Length; i++)
{
Console::WriteLine(" {0}", key);
}

Console::WriteLine("Opening subkey 'Identities'...");
RegistryKey^ rk = nullptr;
rk = Registry::CurrentUser->OpenSubKey("Identities");
if (rk==nullptr)
{
Console::WriteLine("Registry key not found - aborting");
return -1;
}

Console::WriteLine("Key/value pairs within 'Identities' key:");
array<String^>^ name = rk->GetValueNames( );
for (int i=0; i<name->Length; i++)
{
String^ value = rk->GetValue(name)->ToString();
Console::WriteLine(" {0} = {1}", name, value);
}

return 0;
}

But oops, your using VB ... I stopped using that a long time ago.