システム情報を表示する

WinCE 6.0は標準ではバッテリーの状態を表示してくれないんですね。
エディタでスクリプトを作成している時等は、いきなりシャットダウンすると困るんで、バッテリー残量を表示するスクリプトをデスクトップに置いておくことにしました。
常駐するタイプのアプリで動作するものも試したんですが、まぁ、それほどの機能はいらんだろということで。

#デバイスの状態を表示するスクリプト

title = "デバイス情報"

x = BatteryPercentage()
y = SystemVersion("platform")
z = SystemVersion()
fm = FreeMemory(MB)
tm = TotalMemory(MB)

mes = "PlatForm" & ": " & "^TAB^" & "^TAB^" &"^TAB^" & "^TAB^" & "^TAB^" & y & "^NL^"
mes = mes & "Version" & ": " & "^TAB^" & "^TAB^" & "^TAB^" &"^TAB^" & "^TAB^" & z & "^NL^"
mes = mes & "Total Memory" & ": " & "^TAB^" & tm & "MB" & "^NL^"
mes = mes & "Free Memory" & ": " & "^TAB^" &"^TAB^" & fm & "MB" & "^NL^"
mes = mes & "Main Battery"  & ": " & "^TAB^" & "^TAB^" & x & "%"

Message (mes,title)

バッテリー残量が10%辺りで、バッテリーを交換しています。