;hsp3.21
;winact.as		APIはさくらさんに教えてもらった
;hsp2.61
#include "llmod3/llmod3.hsp"
#module
#deffunc winact int id_
	id=id_	;Window ID
	;mref id,0
	gsel id,1
	mref bmscr,67
	hwnd_v@var=bmscr.13
	func="SystemParametersInfoA": prm0=$2001
	getptr ptr,timeout
	prm=$2000,0,ptr,0: dllproc func,prm,4,D_USER@
	dllret@=stat
	prm=prm0,0,0,0: dllproc func,prm,4,D_USER@
	dllret@=stat
	prm=hwnd_v@var: dllproc "SetForegroundWindow",prm,1,D_USER@
	dllret@=stat
	prm=prm0,0,ptr,0: dllproc func,prm,4,D_USER@
	dllret@=stat
return
#global
	screen 2,640,480
	dialog "メモ帳を起動して３秒後にscreen2がアクティブになる\n（WindowsMe以降では無効の場合もある）"
	exec dir_win+"\\notepad.exe"
	wait 300
	winact 2
stop