掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
デスクトップの色を変更するには？ (ID：14646)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のコードを試してみて下さい． 動作確認は 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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.