Очистить Рабочий стол

← →
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)

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

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