Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
3-23942
Weare
2002-07-18 11:50
2002.08.08
Не открывается таблица...


1-23984
Sand
2002-07-25 07:15
2002.08.08
Инструментльная панель как в MS Office


6-24164
XobbuT
2002-05-25 19:54
2002.08.08
Уважаемые Мастера, помогите с вопросом: Как отловить входящие пак


1-23973
mazepa
2002-07-26 23:05
2002.08.08
Menu кнопка ? в левом углу


1-24103
URustam
2002-07-26 13:44
2002.08.08
Помогите!