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

← →
dr.Ach (2001-12-17 21:48) [6]

Привет!
Занимаюсь тем же вопросом.
Одно из решений:
(на мой взгляд не сильно сложное и работающее ...)
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? Найти похожие ветки