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

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

Author: remi
Date: 2009-08-09 15:44:53 +0200 (Sun, 09 Aug 2009)
New Revision: 5304

Modified:
   software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas
Log:
* If smart-server is not started then alway start/restart TuxBox.

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-09 13:22:13 UTC (rev 5303)
+++ software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas	2009-08-09 13:44:53 UTC (rev 5304)
@@ -81,6 +81,13 @@
 end;
 
 
+{#### Return true if Smart-Server is running ####}
+function isSmartServerRunning() : boolean;
+begin
+   result := isProcessRunning('pythonForTuxdroid.exe');
+end;
+
+
 {#### Set TuxBox 2.0 Foreground ####}
 procedure setForeground(wParam : Integer; mess : string);
 var
@@ -91,7 +98,34 @@
 end;
 
 
+function KillTask(exeName : string): Integer;
+const
+  PROCESS_TERMINATE = $0001;
+var
+  ContinueLoop: BOOL;
+  FSnapshotHandle: THandle;
+  FProcessEntry32: TProcessEntry32;
+begin
+  Result := 0;
+  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
+  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
+  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
+  while Integer(ContinueLoop) <> 0 do
+    begin
+      if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
+        UpperCase(exeName)) or (UpperCase(FProcessEntry32.szExeFile) =
+        UpperCase(exeName))) then
+        Result := Integer(TerminateProcess(
+                          OpenProcess(PROCESS_TERMINATE,
+                                      BOOL(0),
+                                      FProcessEntry32.th32ProcessID),
+                                      0));
+       ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
+    end;
+  CloseHandle(FSnapshotHandle);
+end;
 
+
 {#### Start smart-core and TuxBox ####}
 procedure startAll(action : string);
 var
@@ -105,8 +139,24 @@
 
 {#### Main entry point ####}
 begin
-  if isTuxBoxRunning() then
+  if not isSmartServerRunning then
     begin
+      if isTuxBoxRunning then
+        KillTask('TuxBox.exe');
+      if ParamCount > 0 then
+        begin
+          if ParamStr(1) = 'minimize' then
+            begin
+              startAll('hide');
+            end;
+        end
+      else
+        begin
+          startAll('show');
+        end;
+    end
+  else if isTuxBoxRunning() then
+    begin
       try
         setForeground(0, 'WindowForegroundRequest');
       except
@@ -122,7 +172,7 @@
       end
     else
       begin
-      startAll('show');
+        startAll('show');
       end;
   Application.Terminate;
 end.