#WinActivator.mscr#######
#指定のウィンドウ名のウィンドウをアクティヴにするライブラリスクリプト
#
#by モバイル板MortScriptスレの１
#ref. to http://pc11.2ch.net/test/read.cgi/mobile/1172140262/l50
#
#winTitleで渡された名前のウィンドウをアクティヴにします。
#secで渡された秒数待ってもそのウィンドウが存在なければ、何もしないで終了します。
#
#＜使い方＞
#"MortScriptのあるフォルダ\lib"フォルダ内に入れて下さい。
#親スクリプトで
# MortScript = SystemPath( "ScriptExe" ) \ "MortScript.exe"
# WinAct = SystemPath( "ScriptExe" ) \ "lib\WinActivator.mscr"
# Run( MortScript, """" & WinAct & """ winTitle=""＜ウィンドウ名＞"" sec=＜秒数＞" )
#として呼び出して下さい。
#######################

WaitFor( winTitle, sec )
If ( WndActive( winTitle ) = 0 )
 Show( winTitle )
EndIf