Windows 7でデスクトップの背景を変更する方法

2

システムにグループポリシーが適用されているため、デスクトップの背景を永続的に変更することはできません。IE『デスクトップの背景に設定』さんは、働いたが、一時的にされています。PS：システムの管理者権限を持っています。

— 6nagi9
ソース

@Ramhoundは「このアクションを実行するにはドメインの管理者である必要がある」ことを意味すると確信しています。

— デアホッホステープラー

4

安全なドメインは、信頼できないユーザーにとっては非常に不便です。

— f1assistance

@Ramhoundは、彼がローカルまたは移動プロファイルを持っているかどうかは言及していませんが、.man移動プロファイルを持っている可能性もあります。必須プロファイルは、システム構成に永続的な変更を加えることはできません。

— ベンPlont

1

別のファイルを設定するのではなく、現在使用している背景画像ファイルを見つけて上書きするだけです。

したがって、現在のバックグラウンドファイルがc：\ windows \ system \ background.pngの場合、バックアップコピー、background.png.bakなどを作成します。次に、使用するものをc：\ windows \ system \ background.pngにコピーします。これにより、コンピューターを使用するすべてのユーザーの背景が変更されるため、代わりにログイン/ログアウト時にファイルをコピーするスクリプトを作成できます。

— マットパーク
ソース

100％確信はありませんが、彼のプロファイルはNTUser.manであり、固定プロファイルと呼ばれています（読み取り専用と考えてください）。これらのプロファイルは、現在のセッションを超えてシステム構成を変更できません。

— ベンPlont

正しいかもしれませんが、彼が管理者だと言ったとき、彼はシステムファイルを変更できると思いました。

— マットパーク

ええ、それは奇妙です。

— ベンPlont

0

ここにも同じ状況があります。私は少し異なる方法でそれをやった+管理者権限を必要としません：

新しいディレクトリを作成します：C：\ Wallpaper
壁紙をそこに移動し、画面サイズに合わせてサイズを変更し、background.jpgに名前を変更します。サードパーティのアプリなしで画像のサイズを変更するには、MS Paintでbackground.jpgファイルを開き、CTRL + W（サイズ変更）を押し、「アスペクト比を維持」の選択を解除し、「ピクセル」ラジオボタンを選択し、デスクトップサイズに合わせて画像を調整します。
wallpaper.batという名前のディレクトリに次のコンテンツを含む新しいファイルを作成します（起動時に設定に失敗した場合は、30をより大きな数値に変更できます。例：60または90）：

timeout /t 30 /nobreak > NUL
Call background.xlsm

同じディレクトリに次のコンテンツを含むwallpaper.vbsファイルを作成します。

Set WshShell = CreateObject("WScript.Shell" ) 
WshShell.Run chr(34) & "C:\Wallpaper\wallpaper.bat" & Chr(34), 0 
Set WshShell = Nothing

MS Excelを開き（後で保存しますが、指示に従ってください）、Alt + F11を押すと、Visual Basic for Applicationsが開きます。左側にプロジェクトブラウザーが表示されるはずなので、ThisWorkbookをダブルクリックして、次のコンテンツを貼り付けます。

Private Sub Workbook_Open()
     If (ThisWorkbook.Name = "background.xlsm") Then
          Call changeWallpaper("C:\Wallpaper\background.jpg")
          Application.DisplayAlerts = False
          Application.Quit
     End If
End Sub

同じExcelファイルで、プロジェクトブラウザーの任意のアイテムを右クリックし、[挿入]、[モジュール]の順にクリックして、次のコードを貼り付けます。

Option Explicit

Public Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" _
                    (ByVal uAction As Long, ByVal uParam As Long, _
                     ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SETDESKWALLPAPER = 20 Public Const
SPIF_SENDWININICHANGE = &H2 Public Const SPIF_UPDATEINIFILE = &H1

Public Sub changeWallpaper(location As String)

     Dim strImagePath As String
     strImagePath = location

     Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, strImagePath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub

このファイルに対してマクロを有効にするために、確認なしで常にマクロが使用可能であることを確認してください。このファイルをマクロとして有効にし、拡張子がxlsmの Excelファイルを保存します（background.xlsmという名前を付ける必要があります）。

C:\Wallpaper\background.xlsm

xlsm Excelファイルを閉じて開きます。壁紙が設定されている場合-これで完了です。そうでない場合-マクロのセキュリティを確認します。Excelファイルのセキュリティ設定のホワイトリストにそのExcelファイルを追加する必要があるかもしれませんか？私にとって-それは動作します。それでも機能しない場合は、運が悪いです。
起動時に壁紙を設定する-Windows起動ディレクトリに、wallpaper.vbsファイルのショートカットを配置します。ショートカットを作成するには、wallpaper.vbsファイルを右クリックし、「ショートカットを作成」をクリックします。スタートアップディレクトリを開くには、[スタート] -> [ すべてのプログラム] -> [ スタートアップフォルダ]に移動し、右クリックして[開く]をクリックします。作成したショートカットをそのスタートアップディレクトリに移動します。

注1：起動後、30秒が経過し、壁紙が正常に設定されます。タイマー（30秒）がなければ、Excelファイルは何らかの理由でエラーになります。

注2： Excel xlsmファイルを編集するには、ファイル名を他の名前（たとえばbbackground.xlsm）に変更して開きます。コンテンツの変更が完了したら、それを保存し、名前をbackground.xlsmに戻します。

— user3618431
ソース