| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Панель задач

cherepovets ©   (2002-07-26 17:18:00) 

Подскажите как можно убрать панель задач с экрана.
И еще как убрать кнопку пуск

---

Nox   (2002-07-26 22:52:00) [1]

Прячем "Пуск"
var
a:hwnd;
a:=findwindowex(findwindow("Shell_TrayWnd",nil),0,button,nil);
ShowWindow(a, SW_Hide);
Вроде так!

---

Ich Hasse   (2002-07-26 20:53:00) [2]

Спрятпть "Пуск"


ShowWindow(FindWindowEX(Wnd, HWND(0),"Button", nil), SW_Hide);

ShowWindow(FindWindowEX(Wnd, HWND(0),"Button", nil), SW_Show);


---

V.Turecky   (2002-07-26 20:47:00) [3]

Так проще:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow("Shell_TrayWnd", nil), SW_Hide);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow("Shell_TrayWnd", nil), SW_ShowNormal);
end;

---

Bug2k   (2002-07-26 17:30:00) [4]

Для того чтобы убрать панель задач
varH:THandle;
begin
H:=FindWindow"Shell_TrayWnd",nil);
ShowWindow(startbutton,sw_hide);
end;
Для того чтобы показать панель задач
varH:THandle;
begin
H:=FindWindow"Shell_TrayWnd",nil);
ShowWindow(startbutton,sw_show);
end;

---

Наверх