FreeBASIC Isredirected

'' A Windows based example, just for the use principle
'' 自給自足の例。ダミーの入力ファイルとして彼自身の .exe ファイルを、stdin 転送に使います

#include "fbio.bi"

'' 引用符は、パス名の中でスペースがあってもよいように使っています。
Dim As String pathExe = """" & ExePath & """"
Dim As String fileExe = Mid(Command(0), Instrrev(Command(0), "\") + 1)
Dim As String redirection = " < """ & Command(0)
If LCase(Right(Command(0), 4)) = ".exe" Then
  redirection &= """"
Else
  redirection &= ".exe"""
End If

If Command() = "" Then  '' stdin 転送のない1回目のプロセス
  '' Check stdin redirection
  Print "First process without stdin redirection: IsRedirected(-1) = "; Isredirected(-1)
  '' file.exe から転送された stdin を備えた、非同期第2のプロセスを生成
  Shell("start /d " & pathExe & " /b " & fileExe & redirection & " secondprocess")
  '' 非同期の第2のプロセスの終了を待ちます
  Sleep
ElseIf Command() = "secondprocess" Then  '' stdin 転送を備えた第2のプロセス
  '' stdin 転送をチェック
  Print "Second process with stdin redirection  : IsRedirected(-1) = "; Isredirected(-1)
End If