Форум: "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.022 c
7-42886           amamed_3071           2001-11-09 13:41  2002.02.14  
Как Форму сохранит в DLL


1-42720           Koks                  2002-01-29 17:18  2002.02.14  
окна.....окна....окна...


14-42869          Ross                  2001-12-21 12:42  2002.02.14  
Please help


3-42682           xmapa                 2002-01-22 10:51  2002.02.14  
Поле-массив в InterBase


1-42754           Quest                 2002-01-30 12:05  2002.02.14  
Обновление программы, вызываемое из неё самой ...