startProg = App.Path & "\" & PopeyeDir & "\" & pyEXE
solveTask = App.Path & "\" & InputDir & "\" & InputFile
ShellWait startProg & " " & solveTask, cbShowDOSWindow.Value = 1
 
Public Function ShellWait(cmdline As String, Optional ByVal bShowApp As Boolean _
  = False) As Boolean
  'Diese Funktion führt einen Befehl (in CmdLine) aus.
  'Dabei wird das sich öffnende Fenster unsichtbar gemacht.
  'Diese Funktion wird erst beendet, wenn der Befehl
  'vollständig abgearbeitet ist.
 
  'Die Datentypen initialisieren
  uStart.cb = Len(uStart)
  'uStart.wShowWindow = Abs(bShowApp)
  If cbShowDOSWindow.Value = 1 Then
    winStatus& = SW_SHOW
  Else
    winStatus& = SW_HIDE
  End If
  uStart.wShowWindow = Abs(bShowApp)
  uStart.dwFlags = 1
 
  'Fenster erzeugen
 
  lRetVal = CreateProcess(0&, cmdline, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, _
    0&, uStart, uProc)