Статистика | Зарегистрировано на сайте: Всего: 51642
Онлайн всего: 70 Гостей: 70 Пользователей: 0
|
|
Каталог статей
Как скрыть ТаскБар
Спрятать
procedure TForm1.Button1Click(Sender: TObject); var hTaskBar : THandle; begin hTaskbar := FindWindow('Shell_TrayWnd', Nil); ShowWindow(hTaskBar, SW_HIDE); end;
Показать procedure TForm1.Button2Click(Sender: TObject); var hTaskBar : THandle; begin hTaskbar := FindWindow('Shell_TrayWnd', Nil); ShowWindow(hTaskBar, SW_SHOWNORMAL); end;
|
|
Просмотров: 396
| Рейтинг: 1.0/
3
Оштрафовать
| Жаловаться на материал |
|
|