Текущий архив: 2005.11.13;
Скачать: CL | DM;
Вниз
Меню Пуск Найти похожие ветки
← →
Laymer (2005-09-08 07:51) [0]Доброе время суток!!!
Подскажите пожалуста, как можно спрятать меню пуск?
Заранее благодарен!
← →
Poirot © (2005-09-08 09:51) [1]Где-то видел такое код.. не помню только где: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;
← →
Laymer (2005-09-08 13:22) [2]Это не то. Мне надо чтоб меню вообще никак не выскакивало.
← →
ANB © (2005-09-08 14:22) [3]
> Laymer (08.09.05 13:22) [2]
- поставь таймер и закрывай появляющееся окно, как только вылезет.
← →
DVM © (2005-09-08 15:45) [4]
> Это не то. Мне надо чтоб меню вообще никак не выскакивало.
Низкоуровневый хук на клавиатуру
← →
Digitman © (2005-09-08 17:11) [5]
> спрятать меню пуск
ЧЕМ юзер повинился-то ?
ПОЧЕМУ юзер не вправе иметь сабж ?
← →
Игорь Шевченко © (2005-09-08 17:30) [6]ANB © (08.09.05 14:22) [3]
> - поставь таймер и закрывай появляющееся окно, как только
> вылезет.
DVM © (08.09.05 15:45) [4]
> Низкоуровневый хук на клавиатуру
Кривое не может сделаться прямым.
← →
ANB © (2005-09-08 17:52) [7]
> Игорь Шевченко © (08.09.05 17:30) [6]
- на прямость и не претендовано, т.к. не понятно, для чего нужен сабж.
Страницы: 1 вся ветка
Текущий архив: 2005.11.13;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.043 c
