モニタの省電力設定を一時無効にするには (ID:85761)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Windows Media Playerのコントロールを使って簡単な動画再生ソフトを作成していますが 再生をさせていると、モニタの電源設定のためモニタ出力がオフになってしまいます。 そこでプログラムよりモニタの電源設定で「モニターの電源を切る」を機能を一時的に止めたいと 考え、調べたところSystemParametersInfoで管理できることが分かったので下記の様に プログラムしてみましたが、やはり電源管理を止めることができません。 他に何かする必要があるのでしょうか？ 開発環境はWinXP SP2,VB6 SP6です。 よろしくお願いします。 ’宣言部分 ' システムに関するパラメータを示す定数の宣言 Public Const SPI_SETLOWPOWERACTIVE = 85 ' ユーザープロファイルの更新を指定する定数の宣言 Public Const SPIF_UPDATEINIFILE = &H1 ' すべてのトップレベルウィンドウに変更を通知する定数の宣言 Public Const SPIF_SENDWININICHANGE = &H2 Public Const SPIF_SENDCHANGE = SPIF_SENDWININICHANGE ' システムワイドパラメータを問い合わせや設定する関数の宣言 Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uiAction As Long, ByVal uiParam As Long, pvParam As Any, ByVal fWinIni As Long) As Long ’モニタ電源管理関数 Public Function MonitorPower(lngFlag As Long) As Long ' モニタの省電力機能の有効無効を設定 MonitorPower = SystemParametersInfo(SPI_SETLOWPOWERACTIVE, lngFlag, ByVal CLng(0), SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE) End Function 再生前に MonitorPower 0 を呼び出しています。