| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Меню Пуск [D7, Win95/98, WinXP]
Laymer © (2005-09-08 07:51:00)Доброе время суток!!!
Подскажите пожалуста, как можно спрятать меню пуск?
Заранее благодарен!
ANB (2005-09-08 17:52:00) [1]
> Игорь Шевченко © (08.09.05 17:30) [6]
- на прямость и не претендовано, т.к. не понятно, для чего нужен сабж.
Игорь Шевченко (2005-09-08 17:30:00) [2]ANB © (08.09.05 14:22) [3]
> - поставь таймер и закрывай появляющееся окно, как только
> вылезет.
DVM © (08.09.05 15:45) [4]
> Низкоуровневый хук на клавиатуру
Кривое не может сделаться прямым.
Digitman (2005-09-08 17:11:00) [3]
> спрятать меню пуск
ЧЕМ юзер повинился-то ?
ПОЧЕМУ юзер не вправе иметь сабж ?
DVM (2005-09-08 15:45:00) [4]
> Это не то. Мне надо чтоб меню вообще никак не выскакивало.
Низкоуровневый хук на клавиатуру
ANB (2005-09-08 14:22:00) [5]
> Laymer (08.09.05 13:22) [2]
- поставь таймер и закрывай появляющееся окно, как только вылезет.
Laymer (2005-09-08 13:22:00) [6]Это не то. Мне надо чтоб меню вообще никак не выскакивало.
Poirot (2005-09-08 09:51:00) [7]Где-то видел такое код.. не помню только где:9Сорри, если чей-то негласный...Собственно он прячет кнопочку.. :) Елси это надо:)
procedure StartButton(Visible: boolean);
var Tray, Child : hWnd;
C : array[0..127] of Char;
S : String;
begin
Tray := FindWindow('Shell_TrayWnd', NIL);
Child := GetWindow(Tray, GW_CHILD);
while Child <> 0 do
begin
if GetClassName(Child, C, SizeOf(C)) > 0 then
begin
S := StrPas(C);
if UpperCase(S) = 'BUTTON' then
begin
if Visible then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;
| |
