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;
------------------------------------------------------------------------------
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
