Hi folks,
ich habe die Routine wie folgt angepasst:
If Key = Chr(13) Then
if TargetMacOS = true then // v0.1.4
If Not app.mshell(0).IsRunning Then
app.mshell(0).Execute "sh"
End If
elseif TargetWin32=true then
If Not app.mshell(0).IsRunning Then
app.mshell(0).Execute "cmd"
End If
end if
app.mshell(0).Write ShellInput.text
app.mshell(0).Write Chr(13)
ShellInput.Text = ""
Return True
Else
Return False
End If
und nun wird der "cmd" Befehl ausgeführt aber nicht die folgenden
write Befehle. Warum?
Klemens
Am 26.10.2009 um 08:25 schrieb Klemens Klarhoelter:
Hi folks,
ich finde in der RB Beschreibung keinen Hinweis zu Interactive
Shells, dass diese nicht unter WindowsXP funktioniert.
Unter MAC OS funktioniert es ohne Probleme:
mShell = New Shell
mShell.Mode = 2
If Key = Chr(13) Then
If Not mShell.IsRunning Then
mShell.Execute "sh"
End If
mShell.Write InputField.Text
mShell.Write Chr(13)
InputField.Text = ""
Return True
Else
Return False
End If
Hat einer Erfahrungen damit gemacht?
Klemens
