Author Topic: MESS [Amstrad GX4000, Atari 800]  (Read 4889 times)

mgalaxy

  • Administrator
  • Hero Member
  • *****
  • Posts: 801
    • Email
MESS [Amstrad GX4000, Atari 800]
« on: September 17, 2013, 03:23:40 AM »
Source code

Code: AutoIt
  1. ;Parsing
  2. Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1, 1)
  3. local $app = StringLeft ( $CmdLineRaw, $count + 4 )
  4. local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
  5. if not $command then exit 0
  6.    
  7. ;check system compatibility
  8. if not (StringInStr($command,"a800") or StringInStr($command,"6128")) then
  9.    MsgBox(48,"mGalaxy_Script error","This system doesn't need a script file to run. Please uncheck 'Use script file' in mGalaxy_Runway for this system")
  10.    exit 0
  11.  
  12. HotKeySet("{ESC}", "Terminate")
  13.  
  14. $PID = Run( '"' & $app & '" ' & $command)
  15.  
  16.    sleep(500)
  17.  
  18.  
  19. ;functions
  20. Func Terminate()
  21.     While ProcessExists ( $PID )
  22.           ProcessClose ( $PID )
  23.     WEnd       
  24.     Exit 0

Executable

http://www.mgalaxy.com/forum/index.php?action=downloads;sa=view;down=60
« Last Edit: September 18, 2013, 09:56:02 AM by mgalaxy »