PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 6369 | 99/05/19 18:09:16 | RE(2):PB5.0.03: 問題解決しました。 By ろしひー |
| 6360 | 99/05/19 12:32:14 | RE(1):PB5.0.03: スクリーン セーバーを有効・無効にする方法を教えてください。 By あすかちゃんの父 |
| 6355 | 99/05/18 19:07:49 | PB5.0.03: スクリーン セーバーを有効・無効にする方法を教えてください。 By ろしひー |
カテゴリ：スクリプトの記述
日付：1999年05月19日 18:09 発信者：ろしひー
題名：RE(2):PB5.0.03: 問題解決しました。
あすかちゃんの父さん、こんばんは。
＞[外部関数宣言]
＞Function Long SystemParametersInfo(Long uAction, Long uParam, ref Long lpvParam, Long fuWinIni) &
＞ Library \"user32.dll\" Alias for \"SystemParametersInfoA\"
＞
＞[スクリプト]
＞long ll_rtn, ll_screen, ll_set
＞
＞ll_rtn = SystemParametersInfo(16, 0, ll_screen, 0) // スクリーンセーバの設定状態取得
＞if ll_screen = 1 then
＞ messagebox(\"テスト\", \"スクリーンセーバ設定あり\")
＞ ll_set = 0 // false
＞else
＞ messagebox(\"テスト\", \"スクリーンセーバなし\")
＞ ll_set = 1 // true
＞end if
＞ll_rtn = SystemParametersInfo(17, ll_set, ll_screen, 0) // スクリーンセーバの設定変更
これで問題解決します。
本当にありがとうございました。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS Sybase SQL Anywhere Client
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Sybase SQL Anywhere Standalone
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.