Subversion Repositories spk

Rev

Rev 170 | Rev 197 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 170 Rev 191
Line 22... Line 22...
22 
	{
 22 
	{
23 
		return GetVersionString((float)PMLVERSION, (int)PMLBETA);
 23 
		return GetVersionString((float)PMLVERSION, (int)PMLBETA);
24 
	}
 24 
	}
25 
	System::String ^GetVersionString(float version, int beta)
 25 
	System::String ^GetVersionString(float version, int beta)
26 
	{
 26 
	{
27 
		System::String ^str = "V" + SystemStringFromCyString(CyString::CreateFromFloat(version, 2));
 27 
		System::String ^str = "V" + _US(Utils::WString::FromFloat(version, 2));
28 
		// beta version
 28 
		// beta version
29 
		if ( beta > 0 )
 29 
		if ( beta > 0 )
30 
			str += " (Beta " + beta + ")";
 30 
			str += " (Beta " + beta + ")";
31 
		// RC release
 31 
		// RC release
32 
		else if ( beta < 0 )
 32 
		else if ( beta < 0 )
Line 77... Line 77...
77 
								list->SmallImageList->Images->Add(newIcon);
 77 
								list->SmallImageList->Images->Add(newIcon);
78 
								if ( list->SmallImageList != list->LargeImageList )
 78 
								if ( list->SmallImageList != list->LargeImageList )
79 
									list->LargeImageList->Images->Add(newIcon);
 79 
									list->LargeImageList->Images->Add(newIcon);
80 
								doIcon = true;
 80 
								doIcon = true;
81 
							}
 81 
							}
82 
						} catch (System::ArgumentException ^e) {
 82 
						} catch (System::ArgumentException ^) {
83 
						}
 83 
						}
84 
					}
 84 
					}
85 
				}
 85 
				}
86 
			}
 86 
			}
87 
 
 87 
 
Line 134... Line 134...
134 
		}
 134 
		}
135 
	}
 135 
	}
136 
 
 136 
 
137 
	bool WriteRegistryValue(CyString rKey, CyString rValue)
 137 
	bool WriteRegistryValue(CyString rKey, CyString rValue)
138 
	{
 138 
	{
139 
		CyString first = rKey.GetToken("/", 1, 1);
 139 
		Utils::WString first = rKey.GetToken("/", 1, 1).ToString();
140 
		rKey = rKey.GetToken("/", 2);
 140 
		rKey = rKey.GetToken("/", 2);
141 
 
 141 
 
142 
		RegistryKey ^startKey = nullptr;
 142 
		RegistryKey ^startKey = nullptr;
143 
		if ( first.Compare("HKCU") )
 143 
		if ( first.Compare("HKCU") )
144 
			startKey = Registry::CurrentUser;
 144 
			startKey = Registry::CurrentUser;
145 
		else if ( first.Compare("HKLM") )
 145 
		else if ( first.Compare("HKLM") )
146 
			startKey = Registry::LocalMachine;
 146 
			startKey = Registry::LocalMachine;
147 
 
 147 
 
148 
		if ( startKey )
 148 
		if ( startKey )
149 
		{
 149 
		{
150 
			CyString value = rKey.GetToken("/", rKey.NumToken("/"));
 150 
			Utils::WString value = rKey.GetToken("/", rKey.NumToken("/")).ToString();
151 
			rKey = rKey.GetToken("/", 1, rKey.NumToken("/") - 1);
 151 
			rKey = rKey.GetToken("/", 1, rKey.NumToken("/") - 1);
152 
			RegistryKey ^writeKey = startKey->OpenSubKey(SystemStringFromCyString(rKey.FindReplace("/", "\\")), true);
 152 
			RegistryKey ^writeKey = startKey->OpenSubKey(_US(rKey.FindReplace("/", "\\").ToString()), true);
153 
			if ( writeKey )
 153 
			if ( writeKey )
154 
			{
 154 
			{
155 
				writeKey->SetValue(SystemStringFromCyString(value), SystemStringFromCyString(rValue));
 155 
				writeKey->SetValue(_US(value), _US(rValue.ToString()));
156 
				return true;
 156 
				return true;
157 
			}
 157 
			}
158 
		}
 158 
		}
159 
 
 159 
 
160 
		return false;
 160 
		return false;
161 
	}
 161 
	}
162 
 
 162 
 
163 
	System::String ^ReadRegistryValue(CyString rKey)
 163 
	System::String ^ReadRegistryValue(CyString rKey)
164 
	{
 164 
	{
165 
		CyString first = rKey.GetToken("/", 1, 1);
 165 
		Utils::WString first = rKey.GetToken("/", 1, 1).ToString();
166 
		rKey = rKey.GetToken("/", 2);
 166 
		rKey = rKey.GetToken("/", 2);
167 
 
 167 
 
168 
		System::String ^strKey;
 168 
		System::String ^strKey;
169 
 
 169 
 
170 
		RegistryKey ^startKey = nullptr;
 170 
		RegistryKey ^startKey = nullptr;
Line 173... Line 173...
173 
		else if ( first.Compare("HKLM") )
 173 
		else if ( first.Compare("HKLM") )
174 
			startKey = Registry::LocalMachine;
 174 
			startKey = Registry::LocalMachine;
175 
 
 175 
 
176 
		if ( startKey )
 176 
		if ( startKey )
177 
		{
 177 
		{
178 
			CyString value = rKey.GetToken("/", rKey.NumToken("/"));
 178 
			Utils::WString value = rKey.GetToken("/", rKey.NumToken("/")).ToString();
179 
			rKey = rKey.GetToken("/", 1, rKey.NumToken("/") - 1);
 179 
			rKey = rKey.GetToken("/", 1, rKey.NumToken("/") - 1);
180 
			RegistryKey ^readKey = startKey->OpenSubKey(SystemStringFromCyString(rKey.FindReplace("/", "\\")), true);
 180 
			RegistryKey ^readKey = startKey->OpenSubKey(_US(rKey.FindReplace("/", "\\").ToString()), true);
181 
			if ( readKey )
 181 
			if ( readKey )
182 
				strKey = System::Convert::ToString(readKey->GetValue(SystemStringFromCyString(value)));
 182 
				strKey = System::Convert::ToString(readKey->GetValue(_US(value)));
183 
		}
 183 
		}
184 
 
 184 
 
185 
		return strKey;
 185 
		return strKey;
186 
	}
 186 
	}
187 
}
 187 
}