Форум: "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.015 c
3-42665           Eduard                2002-01-21 09:47  2002.02.14  
InsertRecord и DateTime


7-42883           Александр А.          2001-11-05 14:59  2002.02.14  
Объясните, кто ХОРОШО рассекает, разницу в


3-42678           MVova                 2002-01-21 12:04  2002.02.14  
Изменение записи в тригере


14-42835          Corte                 2001-12-25 08:42  2002.02.14  
Есть вопрос!


4-42897           vivus                 2001-12-18 10:47  2002.02.14  
виндовая мессага.