現在の壁紙を調べることはできますか？

解決

---

Windowsで現在壁紙に設定されている画像を調べることはできるのでしょうか？
VB使用です。

よろしくお願いいたします。

編集 削除

---

IActiveDesktop用のタイプライブラリを参照設定した上で、
GetWallpaperメソッドを使えば取得できます。

Private Sub Command1_Click()
  Dim objActiveDesktop As IActiveDesktop
  Dim buf As String

  buf = String(1024, vbNullChar)
  Set objActiveDesktop = New ActiveDesktop
  objActiveDesktop.GetWallpaper buf, 1024&, 0&

  Text1.Text = buf
End Sub


なお、IActiveDesktopインターフェイスをVBから利用するための
タイプライブラリは、標準では用意されていません。
自作するか、フリーソフトとして公開されているものなどを利用してください。

編集 削除

---

魔界の仮面弁士さん早い回答ありがとうございます！
感謝いたしますm(_)m

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。