Скачать: CL | DM;

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

← →
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. Как сменить цвет?

---

← →
clickmaker ©   (2004-07-27 11:49) [4]

>  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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c