| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сменить цвет рабочего стола. [D7, Win2k, WinXP]

Alex#abc ©   (2004-07-21 11:58:00) 

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

---

clickmaker   (2004-07-27 11:49:00) [1]

>  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

---

Alex#abc   (2004-07-27 11:32:00) [2]

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   (2004-07-23 09:41:00) [3]

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

---

clickmaker   (2004-07-21 12:10:00) [4]

SetSysColors, COLOR_DESKTOP

---

Наверх