Текущий архив: 2002.08.08;
Скачать: CL | DM;

Вниз

Панель задач   Найти похожие ветки 

← →
cherepovets ©   (2002-07-26 17:18) [0]

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

---

← →
Bug2k ©   (2002-07-26 17:30) [1]

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

---

← →
V.Turecky   (2002-07-26 20:47) [2]

Так проще:

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;

---

← →
Ich Hasse ©   (2002-07-26 20:53) [3]

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


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

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


---

← →
Nox ©   (2002-07-26 22:52) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c