Как создать свой Desktop?

← →
Евгений © (2001-10-21 16:49) [0]

Как создать свой Desktop, т.е. ва дальнейшем работать с ним: убирать иконки, изменять WallPaper, цвета. И вообще, что можно делать с ним?

← →
Евгений © (2001-10-23 19:03) [1]

Неужели никто не знает?

← →
BlackWidow © (2001-10-23 20:48) [2]

могу лишь предположить :
видал когда нибудь строчку
shell = explorer.exe
в win.ini (а может и в system.ini не помню)
...
у меня как то несколькоторое время там было far.exe :))))
работало....

← →
Raptor © (2001-10-23 23:16) [3]

Привет!

На WinNT/2000 все делается без проблем. Создаешь десктоп (CreateDesktop), переключаешься на него (SwitchDesktop) и запускаешь на нем explorer (CreateProcess). А вот в Win9x это гемор еще тот. Надо либо писать свой explorer либо как то иначе извращаться и перекрывать стандартный Desktop.

Raptor.

← →
ASTARD © (2001-10-23 23:50) [4]

в 98 . . . можно создать свое приложение окно всегда держать последним в z порядке а на нем выводить уже всякие иконки своего рода волпейпер и все такое. Убрать это окно с панели зад. и по возможности зарегестрировать процесс как сервис. Обрабатывать все сообщения что бы не дай бог не закрыли или не свернули а если надо переключится на стандартный то просто сверни это окно для того что бы это все запускалось пропиши это все соответсвенно в ини файле винды .... ну или в РЕЕСТРЕ .... смотри статью на ИНФОСИТИ по способам запуска программы при запуске винды !. ...

← →
G (2001-10-24 05:21) [5]

Добрый день.
Попробуй покопать здесь http://www.astonshell.com/rus, посмотри что Aston пишет в реестр

Привет!
Занимаюсь тем же вопросом.
Одно из решений:
(на мой взгляд не сильно сложное и работающее ...)
1.Получаем хэндл окна:
var
H:THandle;
.....
Function GetDesktopH:THandle;
begin
Result := FindWindow("ProgMan", nil);
end;

2.Прячем иконки на рабочем столе:
h:= GetWindow(fh, GW_CHILD); //Добираемся до
h := GetWindow(fh, GW_CHILD); // иконок ...
ShowWindow(fh, sw_hide);

3.Создаем свой рабочеий стол:
var
P:TPanel;
begin
p := TPanel.Create(nil);
p.BevelInner := bvnone;
p.BevelOuter := bvnone;
p.Width := screen.Width;
p.Height := screen.Height;
p.ParentWindow := H;
p.BringToFront;
p.Repaint;
end;

далее на эту панельку можно скидывать все что угодно...
Если есть чем поделиться по этому вопросу буду рад :-)

drach@prioritet.kharkov.ua

Как создать свой Desktop? Найти похожие ветки