PHM Pocket PC PowerToolsを使った簡易メニューを

PHMの一連のツールは便利なものが多く、昔から愛用しています。
RegEditは多分レジストリエディタのはしりだったんじゃないのかなと思います。
今はTREを使わせてもらっていますが。
それらのツールを実行する簡易メニューを作ってみました。

#
#ユーティリティ
#

title = "簡易メニュー"

ans = Choice(title,"処理を選んで下さい",1,0, \ 

				"タスクマネージャー","プログラムを実行","サスペンド","リセット")
Switch(ans)
	Case(1)
		Run("\My Flash Disk2\Program Files\PHM Tools\TaskMan.exe")
	Case(2)
		Run("\My Flash Disk2\Program Files\PHM Tools\Run.exe")
	Case(3)
		Run("\My Flash Disk2\Program Files\PHM Tools\Suspend.exe")
	Case(4)
		Run("\My Flash Disk2\Program Files\PHM Tools\Reset.exe")
EndSwitch

Choiceという関数はフルスクリーンで動作するようで、ちょっとびっくりします。
デフォルトではタスクマネージャーを選択されていますが、[OK]ボタンを押すと、

外部プログラムのTaskManを起動します。
それなりに使えそうなんでデスクトップに置いておきます。