Главная страница
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.01 c
1-24003
Олеся
2002-07-26 19:41
2002.08.08
Подскажите как работать с компонентом idhttp из пакета indy.


1-24087
REL_
2002-07-26 14:37
2002.08.08
Перевод символа в число


1-24042
Sub
2002-07-25 17:26
2002.08.08
Общие вопросы


1-23992
Xomer
2002-07-27 19:24
2002.08.08
Как рисовать на экране картинки?


1-24094
novice_al
2002-07-25 14:29
2002.08.08
По поводу формы