mGalaxy forum

Code: Select all

;Parsing
Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1, 1)
local $app = StringLeft ( $CmdLineRaw, $count + 4 )
local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
if not $command then exit 0

;Get more info
$count = StringInStr($command, '"', 0 , 1, 1)
local $link = StringTrimLeft ( $command, $count  )
$link = StringTrimRight ( $link, 1 )
Local $aDetails = FileGetShortcut($link)
If @error Then exit
local $tmp = StringSplit($aDetails[0], "\")
local $apptorun = $tmp[$tmp[0]]


;run command
;Run ('"' & $app & '" ' & $command)
ShellExecute('"' & $link & '"')

;wait for application launched with protection loop
;wait for 5 s and exit if no application found
local $protloop = 10
While not(ProcessExists($apptorun))
    $protloop = $protloop - 1
   if ($protloop < 0) then exit 0
   sleep(500)
WEnd

;try to put in front
local $PID = GetProcessPID($apptorun)
local $WinName =  ProcessGetWindow($PID)
WinSetState($WinName,"",@SW_SHOW)
WinSetState($WinName,"",@SW_ENABLE)

;wait for close
While (ProcessExists($apptorun) or (ProcessExists("cmd.exe")))
   sleep(500)
WEnd

;To resolve bug in taito  Xom Tetris gran master
local $list = ProcessList("game.exe")
if $list[0][0] > 0 Then
   local $PID = $list[1][1]
   ProcessWaitClose($PID)
endif

Exit 0




;*********************************************************
;functions
;*********************************************************

Func GetProcessPID($name)
   Local $list = ProcessList($name)
   For $i = 1 To $list[0][0]
       If $list[$i][0] <> "" then
          Return $list[$i][1]
        Endif
   Next
   return 0
endFunc

Func ProcessGetWindow($PId)
    If IsNumber($PId) = 0 then
        SetError(1)
    Else
        Local $WinList = WinList()

        For $i = 1 To $WinList[0][0]
            If WinGetProcess($WinList[$i][0], "") = $PId Then
                return $WinList[$i][0]
            EndIf
        Next
        Return 0
    EndIf
 EndFunc

Code: Select all

  <System>
    <Name>Taito X</Name>
    <AppPath>F:\emulateur\Mgalaxy\raccourcis\cmd.exe</AppPath>
    <RomPath>F:\emulateur\Mgalaxy\raccourcis\taitoX</RomPath>
    <SnapPath>F:\emulateur\Mgalaxy\snapsemul\TaitoX</SnapPath>
    <VidPath />
    <Emu selected="0">
      <Cmd id="0" name="Application shortcut" value="/C "%path\%file%ext"" />
    </Emu>
    <Extensions>.lnk</Extensions>
    <Active>True</Active>
    <Script>True</Script>
    <Database>False</Database>
  </System>

Code: Select all

;Parsing
Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1 , 1)
local $app = StringLeft ( $CmdLineRaw, $count + 4 )
local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
if not $command then exit 0

HotKeySet("{ESC}", "Terminate")

$count = StringInStr($command, "DefaultImage=", 0 , 1 , 1)
local $file = StringTrimLeft($command,$count + 13)
$file = StringTrimRight($file, 1)
local $ext = StringRight($file, 3 )

;Here you need to chnage the command line
if StringInStr($ext,"cdi") Then
   $command = $app & ' -config ImageReader:DefaultImage="' & $file & '"'
else StringInStr($file,"zip") Then
   $command = $app & ' -config ImageReader:DefaultImage="' & $file & '"'

 $PID = Run ($command)


while _WinWaitActivePID($PID)
   sleep(500)
wend

While ProcessExists ( $PID )
   Sleep(500)
WEnd

exit 0


;functions
Func Terminate()
   While ProcessExists ( $PID )
	  ProcessClose ( $PID )
   WEnd
   Exit 0
EndFunc

Func _WinWaitActivePID($iPid)
   While 1
	  Local $list = WinList()
	  For $i = 1 To $list[0][0]
		 If $list[$i][0] <> "" And IsVisible($list[$i][1]) Then
			If WinGetProcess($list[$i][1]) = $iPid AND WinActive($list[$i][1]) Then Return $list[$i][0]
		 EndIf
	  Next
   WEnd
EndFunc

Func IsVisible($handle)
   If BitAND(WinGetState($handle), 2) Then
	  Return 1
   Else
	  Return 0
   EndIf
EndFunc

Code: Select all

if StringInStr($ext,"cdi") Then
   $command = $app & ' -config ImageReader:DefaultImage="' & $file & '"'
else StringInStr($file,"zip") Then
   $command = '"c:/NullDC_Naomi\NulDDC.exe"' & ' -IDK_the_command_line="' & $file & '"'