【HSP3】デスクトップを指定ウィンドウに貼り付ける高貴な遊び(笑)

ちゃんと戻さないと大変なことになります。

ちゃんと戻さないと大変なことになります。

#include "user32.as"
	
	gsel 0, -1
	screen 1, ginfo_dispx, ginfo_dispy
	width 640, 480
	onexit gosub *exit
	hParent = hwnd
	
	title "デスクトップのっとり大作戦 – 10秒で戻ります"
	
	FindWindow "Progman", "Program Manager"

	SetParent stat, hParent

	wait 1000

	FindWindowEx hParent, 0, "Progman", 0
	SetParent stat, 0
	
	end
stop
*exit
	if (hParent != 0){
		FindWindowEx hParent, 0, "Progman", 0
		SetParent stat, 0
	}
	end
return