喫茶XRAYトップページ

[スレッド全体]
[12493] Re:スクリーンセーバ停止 ? 起動抑止 ?返信　削除
2018/12/14 (金) 13:29:18 SO
▼ Mr.XRAYさん
> 某掲示板で質問を見たのでサンプル書いてみました．
> こういう機能というか仕様というのは，どういう場面で必要なんでしょうね．
> 私なんか SPI_SETSCREENSAVEACTIVE でスクリーンセーバ起動の無効，有効を
> 設定してしまえばいいんじゃない ?
> と思うんですが．

再開時にログオン画面に戻るが有効な場合とか、どうするんでしょうね？
そういう運用しないよ！ってなら、そもそもスクリーンセーバーOFFでいいような気もするし。。。？

[12494] Re2:スクリーンセーバ停止 ? 起動抑止 ?返信　削除
2018/12/14 (金) 13:31:23 SO
> 再開時にログオン画面に戻るが有効な場合とか、どうするんでしょうね？

[ 06_スクリーンセーバーの起動抑止　SetThreadExecutionState 関数 ]

に書かれてた(^^;A
[12495] Re2:スクリーンセーバ停止 ? 起動抑止 ?返信　削除
2018/12/14 (金) 14:32:42 Mr.XRAY
▼ SOさん

> そういう運用しないよ！ってなら、そもそもスクリーンセーバーOFFでいいような気もするし。。。？

わたしもそう思うんですが，
ダメですか ?

某掲示板にそうレスしようと思ったら
「質問の意味を取り違えている」
という方がレスしていたので...(^^;

質問の趣旨は「起動中のスクリーンセーバ云々」ですからね．

[12496] Re3:スクリーンセーバ停止 ? 起動抑止 ?返信　削除
2018/12/14 (金) 14:52:05 SO
▼ Mr.XRAYさん

想像シチュエーションですが、
普段は、起動しっぱなしのPCで、
なにかアラートが発生した場合、
強制的にスクリーンセーバーを解除し、
画面を注視して欲しいのではと思いました。

想像が合っていたとしても、
気づかなければ、同じですが。。。
[12498] サンプルのページを移動返信　削除
2018/12/17 (月) 06:49:17 Mr.XRAY
> 想像が合っていたとしても、
> 気づかなければ、同じですが。。。

なので，サンプルの掲載ページを移動しました．
スクリーンセーバの起動の可否を設定できるのに，停止のサンプルは不要かと．
でも折角テストしたので別のページに書いておくことにしました．

[ 起動中のスクリーンセーバーの停止 ]
http://mrxray.on.coocan.jp/Delphi/Others/StopScreenSaver.htm

[12499] スクリーンセーバ無効と停止と抑止の違い返信　削除
2018/12/18 (火) 08:34:59 Mr.XRAY
> スクリーンセーバの起動の可否を設定できるのに，停止のサンプルは不要かと．

何が違うのかと考えながらモニタを眺めていたら，モニタが真っ暗に..
あっ，と気づきました．

スクリーンセーバが無効だと，ディスプレイの電源 OFF 時間が経過するときの機能が働きます．
スクリーンセーバの停止と抑止をしていれば，モニタに対して何らかの操作が
行われ，それらのタイムアウト時間がリセットされるので
モニタの電源 OFF にはなりません．

そういうことだったんですね．
後で記事を修正しておきます．
まだまだ勉強不足でございます，

[12500] Re:スクリーンセーバ無効と停止と抑止の違い返信　削除
2018/12/19 (水) 08:04:34 SO
▼ Mr.XRAYさん

そうですね。
けれど、使わない機能はなかなか気付きませんね(^-^;A

> スクリーンセーバが無効だと，ディスプレイの電源 OFF 時間が経過するときの機能が働きます．
> スクリーンセーバの停止と抑止をしていれば，モニタに対して何らかの操作が
> 行われ，それらのタイムアウト時間がリセットされるので
> モニタの電源 OFF にはなりません．

電源プランで「モニタの電源を切る」をOFFにすればOK?

[12501] Re2:スクリーンセーバ無効と停止と抑止の違い返信　削除
2018/12/19 (水) 10:49:12 Mr.XRAY
▼ SOさん

> 電源プランで「モニタの電源を切る」をOFFにすればOK?

御意 !!
んでもってサンプルコードです．
動作確認は Windows 7 U64(SP1) + Delphi XE5(UP2) Pro VCL-32 です．

//=============================================================================
//  モニタ(ディスプレイ)の電源を切らない設定
//  タイムアウト時間を 0 にすれば無効となる
//  電源オプションの設定ダイアログでは表示が [なし] になる
//
//  uses にShellAPI が必要
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  LCmdExe : string;
  LOption : string;
begin
  LCmdExe := 'powercfg.exe';
  LOption := '/CHANGE monitor-timeout-ac 0';
  ShellExecute(Handle, '', PChar(LCmdExe), PChar(LOption), nil, SW_HIDE);
end;

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82