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
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
