HSPTV!掲示板

現在コマンドラインツールを利用した補助ツールを作っているのですが、
そのコマンドラインツールの終了コードを取得したくてもHSPで取得する方法が分からず困っています。
コマンドラインツールの呼び出しには、exec命令を使って直接コマンドを入力しています。
そのコマンドラインツールでの終了コード(正常終了だと1失敗だと0)の取得を
HSPで取得する方法はありますでしょうか？よろしくお願いします。

起動したいプログラムをWSH→DOSという流れで呼び出して取得します。
DOSを経由しますので、コマンドも実行できてしまいます。
例外処理が必要ならいれてください。

#module
	#deffunc CallDOS var ret, str cmd
		newcom wsh, "WScript.Shell"
		comres com
		wsh -> "Exec" "%ComSpec% /c " + cmd
		while com("Status") : wend
		if com("Status") == 0 {
			com = com("StdOut")
			ret = com("ReadAll")
		}
		delcom wsh
	return
#global
	sdim out, 4096
	// ファイルの結果
	CallDOS out, "hsptmp.exe"
	mes "----- 出力結果 -----"
	mes out
	// コマンドも指定できる
	CallDOS out, "dir C:\\"
	mes "----- 出力結果 -----"
	mes out
stop

>catsさん
モジュールまで作っていただきありがとうございます！
これで先に進めそうですありがとうございました！

>catsさん
重ね重ね申し訳ありません。
コマンドラインツールでexecで使えたような
コマンドラインツールのウィンドウを非表示でCallDOSを実行することは出来ませんでしょうか？

WSHのExecでの非表示実行の仕方が分からないのでhspextに頼みました。
(Execでの非表示実行はできない？)
hspextのpipeexecを使えば簡単に出力を取得できます。
ただし、16bitアプリケーションやバッチファイルでは動作しないようです。

#include "hspext.as"
	sdim out, 65536
	pipeexec out, "hsptmp.exe"
	if stat : mes "取得に失敗しました。" : stop
	sdim pipe, 1024
	repeat
		await 15
		pipeget pipe
		if stat == 0 : break
	loop
	mes out
stop

>catsさん
何から何までありがとうございます！
無事最小化で起動出来ました。pipexecっていう命令があったんですねー。
昔は無かった気がするのですっかり見落としていました。