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

Очистить Рабочий стол   Найти похожие ветки 

← →
AndreyProg   (2005-06-14 17:25) [0]

Мне нужно убрать все ярлыки, панели, обои. И сделать задний фон однотонным (например, черным или серым).

---

← →
Zeqfreed ©   (2005-06-14 17:53) [1]

AndreyProg   (14.06.05 17:25)
К выполнению задания разрешаю приступить!

p.s. извини, не удержался)

---

← →
nes ©   (2005-06-14 21:31) [2]

Глупо как-то,шугать юзера хочешь? :p
1)Прячем taskbar:
ShowWindow(FindWindow("Shell_TrayWnd", nil), sw_hide);

2)Прячем иконки:
var
hw:HWND;
begin
hw := FindWindow("ProgMan", nil);
hw := GetWindow(hw, GW_CHILD);
showwindow(hw,sw_hide);

---

← →
Nes ©   (2005-06-14 21:37) [3]

Забыл=) фон:

procedure TForm1.Button1Click(Sender: TObject);
var
bmp:Tbitmap;
a,b:Integer;
s:string;
begin
s:="c:\123.bmp";
bmp:=Tbitmap.Create;
bmp.Width:=screen.width;
bmp.Height:=screen.Height;
for a:=0 to bmp.Width do begin
 for b:=0 to bmp.Height do
   bmp.Canvas.Pixels[a,b]:=clred;
   end;
bmp.SaveToFile(s);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @S[1],
   SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE);
end;

---

← →
AndreyProg   (2005-06-15 17:57) [4]

> Nes ©   (14.06.05 21:37) [3]

Какой-то дубовый метод (с битмапом).

Я хочу вот что:
1) запомнить текущие обои и свойство: экран - оформление-элемент рабочий стол : цвет1
2) очистить экран (свойства: экран-фон: Нет, экран - оформление-элемент рабочий стол : цвет2)
3) вернуть значения, запомненные в 1)

---

← →
Deka ©   (2005-06-16 11:53) [5]

Может поместить на экран окошко залитое нужным тебе цветом? Без заголовка естественно.

---

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

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



Память: 0.46 MB
Время: 0.029 c