HYBRID W-ZERO3でMortPlayer使う時のサスペンド抑止

(a) 設定→システム→バックライト→バックライト→バッテリ：バックライトを消すまでのアイドル時間
チェック外す
(b) 設定→システム→パワー マネージメント→キー点灯→キーロック時の節電設定
節電状態にしない
(詳細設定→バッテリ使用時：次の時間経過後、節電状態にしますの設定はチェック入れたままで大丈夫)

この2つの設定をやるとMortPlayerでも大丈夫、キーロックしてもちゃんと再生できます。

あ、MortPlayerの節電設定で、

「サスペンドを無効化する状態 」
 再生中 or 再生中＋一時停止中 or 常に無効化
も必要です。(これは1度設定したらそのままにしとけばおｋ)

ちなみに、「画面オフの時間」はキーロックすると効かないみたい...キーロックしなければ画面は消えるけど、ボタンもタッチも有効のままなので危険。

結局、再生中は画面点きっぱになるので電池持ちが悪くなるのと、それ以上に気に入らないのが、音楽聴くとき(a)(b)やって、終わったらその逆やっ て...って余りにエレガントさがない...


WkTaskの画面OFFとかも試してみましたが、ボタンは無効になってくれるけど、タッチは効いてて、更にボクの環境だとフリーズが多発したので落選。


...ってことで、WMPコンポーネント使ったプレイヤーS2Pを 使ってみました。
これなら、何も考えないでキーロックしてもおｋ。
でもねぇ...いいところもあるんだけど...
プレイリストの作り方とかが(ボクにとっては)直感的に使えなかったのはともかく、ベースがWMPってことでとにかくひたすら重い...重するぎ。


やっぱ、MortPlayer＋節電設定関連しかないのか...
そこで、同じMortなMortScriptで、できないかなーと思って、レジストリを探してみました。

(a) 設定→システム→バックライト→バックライト→バッテリ：バックライトを消すまでのアイドル時間
HKEY_CURRENT_USER\ControlPanel\BackLight
BatteryTimeout ： チェックが入ってる時のタイムアウト時間
BatteryTimeoutUnchecked ： チェックが入ってない時のタイムアウト時間
→ チェック入れるとBatteryTimeoutに時間が入って、BatteryTimeoutUncheckedは0になる。
→ チェック入ってない時はその逆

(b) 設定→システム→パワー マネージメント→キー点灯→キーロック時の節電設定
HKEY_LOCAL_MACHINE\ControlPanel\Power
KeyboardLockEnable ： 0だとチェックなし、1だとチェックあり

なワケで、実行する度に、(a)(b)設定をトグルするようなものを作ってみました。
(a)の方の設定を見て、(b)の方の設定も合わせて変更してしまうので、もし別々に分けて管理している場合は考えないとかもデス。

(注意)
・MortScriptで何か作るの初めてです...こうした方がいいよ、とか、これやっちゃダメよ、とかあればご教授下さいませ。
・プログラムって程大したものではないし、そもそもあんまり需要もなさそうですが、ご自由にどうぞ。但し、レジストリいじるので、あなたの大事なはいぶりさんを初期化しなきゃいけない破目に追いやる可能性も充分あります。そこはお約束の自己責任で。

If( 0 = RegRead(HKCU,"ControlPanel\BackLight","BatteryTimeout") )
  RegWriteDWord(HKLM,"ControlPanel\Power","KeyboardLockEnable",1)
  tmp = RegRead(HKCU,"ControlPanel\BackLight","BatteryTimeoutUnchecked")
  RegWriteDWord(HKCU,"ControlPanel\BackLight","BatteryTimeoutUnchecked",0)
  RegWriteDWord(HKCU,"ControlPanel\BackLight","BatteryTimeout",tmp)
  Message("Power management ON")
Else
  RegWriteDWord(HKLM,"ControlPanel\Power","KeyboardLockEnable",0)
  tmp = RegRead(HKCU,"ControlPanel\BackLight","BatteryTimeout")
  RegWriteDWord(HKCU,"ControlPanel\BackLight","BatteryTimeout",0)
  RegWriteDWord(HKCU,"ControlPanel\BackLight","BatteryTimeoutUnchecked",tmp)
  Message("Power management OFF")
Endif

↓いちおファイル。.htaccessいじるのがめんどかったのでzip圧縮しますたｗ

PwMngTgl.zip