Changeset 62 for trunk/Modules/UMainModule.pas

Timestamp:

Dec 19, 2011, 9:33:21 AM (13 years ago)

Author:

chronos

Message:

• Přidáno: Jednotka UApplicationInfo obsahující informace o programu.

File:

• trunk/Modules/UMainModule.pas (modified) (3 diffs)

trunk/Modules/UMainModule.pas

@@ -10 +10 @@
   UXmlClasses, UHtmlClasses, UCore, UHTTPServerTCP,
   UHTTPSessionFile, UUser, SpecializedList, Registry;
-
-const
-  RegistryKey = '\Software\Chronosoft\ZdechovNET';
 
 type
@@ -57 +54 @@
 implementation
 
+uses
+  UApplicationInfo;
+
 { TMainModule }
 
@@ -233 +233 @@
   try
     RootKey := HKEY_CURRENT_USER;
-    OpenKey(RegistryKey, True);
+    OpenKey(ApplicationInfo.RegistryKey, True);
     Style := ReadStringWithDefault('Style', 'Basic');
     BaseURL := ReadStringWithDefault('BaseURL', 'http://localhost');