tux-droid-svn

[remi <c2m...@c2...>]

Author: remi
Date: 2009-09-18 14:33:53 +0200 (Fri, 18 Sep 2009)
New Revision: 5448

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:
* Added a method to retrieve the TuxBox2 installation path
* Added start of "Quick Install Guide" in the first TuxBox2.0 run

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-09-18 12:18:53 UTC (rev 5447)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-09-18 12:33:53 UTC (rev 5448)
@@ -25,6 +25,7 @@
     procedure parseStates(aString : string; var values : TStringList);
     function getResult(request : string) : boolean;
     function getRegisteryLanguage(): string;
+    function getTuxBoxInstallationPath: string;
 
 var
   XmlScanner1 : TXmlScanner;
@@ -441,5 +442,23 @@
     end;
 end;
 
+function getTuxBoxInstallationPath: string;
+const
+  TUXDROID_REGISTRY_PATH = 'SOFTWARE\Tux Droid\Installation';
+begin
+  with TRegistry.Create do
+    try
+      RootKey := HKEY_LOCAL_MACHINE;
+      // From Tuxdroid setup
+      if OpenKey(TUXDROID_REGISTRY_PATH, False) then
+      begin
+        result := ReadString('Install_Dir');
+        CloseKey;
+      end;
+    finally
+      Free;
+    end;
+end;
 
+
 end.

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-09-18 12:18:53 UTC (rev 5447)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-09-18 12:33:53 UTC (rev 5448)
@@ -64,7 +64,6 @@
     Width = 955
     Height = 619
     TabOrder = 0
-    Silent = False
     RegisterAsBrowser = True
     RegisterAsDropTarget = False
     OnDocumentComplete = EmbeddedWB1DocumentComplete

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-09-18 12:18:53 UTC (rev 5447)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-09-18 12:33:53 UTC (rev 5448)
@@ -269,6 +269,13 @@
 begin
   DelegateInit.Enabled := false;
 
+  //Showing Start Guide.
+  if getShowGuide() = 'true' then
+    begin
+    Form1.setShowGuide('false');
+    ShellExecute(HWND(nil), 'open', PChar(getTuxBoxInstallationPath + '\softwares\quick-start-guide\QuickStart.exe'), nil, nil, SW_SHOW);
+    end;
+
   //Show Splash screen
   if splashScreenMustBeShowed then
     ShowSplashScreen;
@@ -323,13 +330,6 @@
   //Start in foreground if requested
   if startInForeground then
     ShowHide1.Click;
-
-  //Showing Start Guide.
-  if getShowGuide() = 'true' then
-    begin
-    showMessage('showing quick start guide');
-    Form1.setShowGuide('false');
-    end;
 end;