Главная страница
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
1-24010
anod
2002-07-28 16:32
2002.08.08
TTrackBar


3-23878
PashketSiniz
2002-07-17 10:22
2002.08.08
Количество знаков после запятой


3-23965
sanilo
2002-07-16 23:00
2002.08.08
Именованные каналы


3-23938
roadrunner
2002-07-18 16:19
2002.08.08
Delphi и 1С


14-24210
race1
2002-07-13 19:57
2002.08.08
глюки... кругом глюки