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

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

Очистить Рабочий стол [D5, Win95/98, WinXP]

AndreyProg ©   (2005-06-14 17:25:00) 

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

---

Deka   (2005-06-16 11:53:00) [1]

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

---

AndreyProg   (2005-06-15 17:57:00) [2]

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

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

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

---

Nes   (2005-06-14 21:37:00) [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;

---

nes   (2005-06-14 21:31:00) [4]

Глупо как-то,шугать юзера хочешь? :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);

---

Zeqfreed   (2005-06-14 17:53:00) [5]

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

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

---

Наверх