現在の壁紙を調べることはできますか？ (ID:76520)

名前

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

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