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

解決

jupiter 2002-12-05 19:39:55 No: 76519

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

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

魔界の仮面弁士 2002-12-05 20:14:08 No: 76520

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から利用するための
タイプライブラリは、標準では用意されていません。
自作するか、フリーソフトとして公開されているものなどを利用してください。

jupiter 2002-12-06 01:02:44 No: 76521

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