デスクトップの色を変更するには？

解決

とき 2005-05-05 19:06:35 No: 14645

デスクトップの背景色を変更したいのですがうまくいきません。
自分なりに調べた結果レジストリの
HKEY_CURRENT_USER\Control Panel\ColorsのBackgroundにRGB値で格納されていました。
しかし、これを変更してもデスクトップの色がまったく変更されません。
どなたかわかる方ご教授ください。

Mr.XRAY URL 2005-05-05 21:02:24 No: 14646

以下のコードを試してみて下さい．
動作確認は WindowsXP(SP1) + Delphi5(UP1)です．

procedure TForm1.Button1Click(Sender: TObject);
var
     OriginColor: TColor;
     Elements, RGBVal : Integer;
begin
     {対象はデスクトップの背景色}
     Elements := COLOR_DESKTOP;
     {元の色を退避しておく}
     OriginColor:=GetSysColor(Elements);
     {変更する色は赤}
     RGBVal := clRed;
     SetSysColors(1,Elements,RGBVal);

     {テストで変更するだけなので元に戻す}
     Sleep(3000);
     SetSysColors(1,Elements,OriginColor);
end;

とき 2005-05-05 22:16:00 No: 14647

無事解決できました的確なアドバイスありがとうございます。