A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#1さんが回答していたので、そちらで解決するかと思いましたが、本に載っていた、APIとは違うものだったので、一応書きます。
私はWindows98を使用していて、この方法は使えませんので、うまくいくかは試していません。試してみてください。
(Windows95/98/Meはスクリーンセーバーの情報がレジストリに保存されず、
System.iniに保存されているため、他のAPI関数を使うのだそうです)
スクリーンセーバーを設定する方法です。
解除する方法は、わかりませんが
strScreenSaverFileName = .List(.ListIndex)
を
strScreenSaverFileName = ""
にすればもしかしたら、解除されるかもしれません。
リストボックスとコマンドボタンを貼り付けて
以下のコードをコピー貼り付け(そのまま記載していますので、著作権の問題とかあるのでしょうか?)
Private Sub Command1_Click()
Dim lngHandleRegistryKey As Long
Dim strScreenSaverFileName As String
Dim lngResult As Long
' スクリーンセーバーを指定
With List1
strScreenSaverFileName = .List(.ListIndex)
End With
' レジストリキーをオープン
lngResult = _
RegOpenKeyEx( _
HKEY_CURRENT_USER, _
"Control Panel\Desktop", _
0, _
KEY_SET_VALUE, _
lngHandleRegistryKey)
lngResult = _
RegSetValueEx( _
lngHandleRegistryKey, _
"SCRNSAVE.EXE", _
0, _
REG_SZ, _
ByVal strScreenSaverFileName, _
Len(strScreenSaverFileName))
' レジストリキーを解放
lngResult = _
RegCloseKey(lngHandleRegistryKey)
End Sub
Private Sub Form_Load()
Dim strSystemDirectory As String
Dim strScreenSaverFileName As String
Dim lngWin32apiResultCode As Long
' 変数のバッファを確保
strSystemDirectory = Space(MAX_PATH)
' システムフォルダを取得
lngWin32apiResultCode = _
GetSystemDirectory(strSystemDirectory, _
Len(strSystemDirectory))
' 変数からシステムフォルダのパスを切り出し
strSystemDirectory = _
Left(strSystemDirectory, _
InStr(strSystemDirectory, _
vbNullChar) - 1)
' スクリーンセーバーの検索パスを設定
strScreenSaverFileName = _
Dir(strSystemDirectory & "\*.scr")
' スクリーンセーバーを列挙
Do
' リストボックスにスクリーンセーバーのフルパスを追加
List1.AddItem _
strSystemDirectory & _
"\" & _
strScreenSaverFileName
' 画像ファイルを取得
strScreenSaverFileName = Dir()
Loop Until strScreenSaverFileName = ""
' リストボックスの先頭アイテムを選択
List1.ListIndex = 0
End Sub
うまくいかなかったらすいません。
No.1
- 回答日時:
設定、解除の意味が微妙ですが・・・
WindowsAPIの、SystemParametersInfo()でいくつかのスクリーンセーバの設定などを変更することが出来ます。
詳細はMSDNを参照ください。
これで設定できない事項でしたら補足をお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードに「URL」を貼り付けると...
-
エクセルのカーソル位置表示色...
-
Excelのアドインと参照設定の違...
-
参照の設定について教えて下さい。
-
Word2000、オートコレクト、オ...
-
このソフトからのおしらせを受...
-
Wordでこのような三角が出てく...
-
スケッチスタイルの有効化
-
エクセルで薄く透ける文字を入...
-
例えはワードで「10の3乗」...
-
印刷用紙の中央に点線をいれた...
-
XChange Viewerで文字サイズの変更
-
WORD ある縦線が消せない
-
セルの書式設定のフォントやサ...
-
ワードで定型レイアウトを崩さ...
-
Word差し込み印刷で2ページ以降...
-
差し込み印刷で反映されないフ...
-
Excelのグラフ作成 『軸ラベル...
-
ワードでCO2(二酸化酸素) ...
-
カンマ( , )をタブに置換したい。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードに「URL」を貼り付けると...
-
Word2000、オートコレクト、オ...
-
APIを使う時は参照設定は不要?
-
ヘッダーとフッターがクリック...
-
参照の設定について教えて下さい。
-
【Wordの初期化についてお願い...
-
Wordで行送りがmm単位にならない
-
エクセルデータのワードへの差...
-
Excelのアドインと参照設定の違...
-
Access2000VBAでOLE/DDEタイム...
-
MS Wordにてキーアサインを変更...
-
Wiiペアレンタルコントロールの...
-
ワードで、:を揃えたいです。
-
エクセルで入力後のセルの移動...
-
画面が暗くならないようにした...
-
Office2007 ワードを初期...
-
Windows 10の標準アプリ「アラ...
-
エクセルのページ設定を保存したい
-
Shiftを押しっぱなしの状態の解...
-
行が隠れています
おすすめ情報