Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Как создать свой 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




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.023 c
7-42874           Александр А.          2001-11-06 14:36  2002.02.14  
Конкретно PGM-у и Dima-k17 (и любому, кто знает) доп. вопрос о процессорах:


3-42663           MVova                 2002-01-18 14:00  2002.02.14  
Вопрос: Как переустановить 2.5 поверх 2.6?


1-42733           Beerkoff              2002-01-30 18:02  2002.02.14  
Мигание Canvas в D6


3-42675           Aledo                 2002-01-20 15:59  2002.02.14  
Заполнение таблицы


3-42687           Vasilii               2002-01-17 11:54  2002.02.14  
---|Ветка была без названия|---