壁紙を変更する



■必要なコンポーネント

■使用するAPI関数

■定数説明

SPIF_SENDWININICHANGE 全てのアプリに通知して更新する
SPIF_UPDATEINIFILE INIファイルを更新する


■ソースは下記のようになります。

■壁紙をC:\Windows\雲.bmpに変更する処理
procedure TForm1.Button1Click(Sender: TObject);
begin

　SystemParametersInfo (SPI_SETDESKWALLPAPER, 0,
　　　　PChar('C:\Windows\雲.bmp'), SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);

end;


■壁紙の表示位置を変更したい場合は下記を参考にして下さい。
　
　＊レジストリ操作なので注意して変更して下さい。

■壁紙の位置を変更する ■現在の壁紙のファイルを取得する
[HKEY_CURRENT_USER\Control Panel\Desktop]

TileWallpaper
"0"にすると中央の表示
"1"にすると並べて表示
Wallpaperstyle
"2"にすると拡大して表示
 [HKEY_CURRENT_USER\Control Panel\Desktop]

Wallpaper

に記入されています。

<注>壁紙が設定されていないと値は""になります。




Win32APIのページへ



ホーム PV ランキング