Как сменить цвет рабочего стола.

← →
Alex#abc (2004-07-21 11:58) [0]

Изменения в реесте строкового параметра background HKCU\Control Panel\Colors меняет цвет только после перезагрузки системы.
Каким образом можно сменить цвет рабочего стола не меня обоев и без пререзагрузки?

← →
clickmaker © (2004-07-21 12:10) [1]

SetSysColors, COLOR_DESKTOP

← →
Alex#abc (2004-07-23 09:41) [2]

А можно ли по-подробней, пожалуйста

← →
Alex#abc (2004-07-27 11:32) [3]

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;

.
.
.

function SetSysColors(a:dword ;b:dword ; c: Colorref):integer;stdcall;external "user32.dll";
function GetSysColor(a:integer ):dword ;stdcall;external "user32.dll";

.
.
.

implementation

procedure TForm1.ReFreshClick(Sender: TObject);
var cc,ss:TColor;
begin
i:=i+1;
cc:=GetSysColor(COLOR_DESKTOP);
ss:=RGB(85,127,170);
SetSysColors(1,COLOR_DESKTOP,ss);
end;
begin
i:=-1;
end.

===============
Вопрос вследующем:
1. Почему смена цвета рабочего стола не происходит?
2. Как сменить цвет?

> Alex#abc (27.07.04 11:32)
> function SetSysColors(a:dword ;b:dword ; c: Colorref):integer;stdcall;external
> "user32.dll";
> function GetSysColor(a:integer ):dword ;stdcall;external
> "user32.dll";

А это зачем? В windows.pas есть прототипы почти всех функций user32

Как сменить цвет рабочего стола. Найти похожие ветки