[tuxdroid-svn] r5290 - software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher

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

Author: jerome
Date: 2009-08-07 12:31:49 +0200 (Fri, 07 Aug 2009)
New Revision: 5290

Modified:
   software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas
Log:
* Allow to start TuxBox 2.0 minimized.

Modified: software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas	2009-08-07 06:53:09 UTC (rev 5289)
+++ software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas	2009-08-07 10:31:49 UTC (rev 5290)
@@ -93,13 +93,13 @@
 
 
 {#### Start smart-core and TuxBox ####}
-procedure startAll();
+procedure startAll(action : string);
 var
   APPLICATION : string;
 begin
   //Starting Application.
   APPLICATION := '"' + GetEnvironmentVariable('PROGRAMFILES') + '\Kysoh\Tux Droid\softwares\TuxBox 2.0\TuxBox.exe"';
-  ShellExecute(HWND(nil), 'open', PChar(APPLICATION), 'show', nil, SW_HIDE);
+  ShellExecute(HWND(nil), 'open', PChar(APPLICATION), PChar(action), nil, SW_HIDE);
 end;
 
 
@@ -113,9 +113,17 @@
       end;
     end
   else
-    begin
-      startAll();
-    end;
+    if ParamCount > 0 then
+      begin
+        if ParamStr(1) = 'minimize' then
+          begin
+            startAll('hide');
+          end;
+      end
+    else
+      begin
+      startAll('show');
+      end;
   Application.Terminate;
 end.
  
\ No newline at end of file