# All Rights Reserved, Copyright kurAmA Limited, 2008
#
#アクティブなウィンドウの終了
#
#written by kurAmA
#2008.11.14 作成
#2008.11.18 Today以外かつshell32.exeの時は最小化する対応。

#アクティブなウィンドウのタイトル名を取得
windowTitle = ActiveWindow()

#ウィンドウのプロセス名を取得
processName = WindowProcess( windowTitle )

#プロセスの種類によって処理を分岐
if( processName eq "shell32.exe" && windowTitle ne "Desktop" )
	#プロセス名がshell32.exeの場合はウィンドウを最小化する。
	#ただしTodayの場合を除く。
	Minimize( windowTitle )
ElseIf( processName ne "shell32.exe" )
	#shell32.exe以外の場合
	#確認ダイアログ
	res = Question( "[" & WindowTitle & "]を終了します", "アプリケーションの終了", "OkCancel" )
	if ( res = YES )
		#YESが選択された場合、ウィンドウを終了する
		Close( windowTitle )
	EndIf
EndIf

Exit