Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.061 c
14-1129741679
pazitron_brain
2005-10-19 21:07
2005.11.13
Помогите найти ветку.


1-1130148249
Ega23
2005-10-24 14:04
2005.11.13
Поменять порядок листов в TPageControl


2-1129796780
Alex7
2005-10-20 12:26
2005.11.13
Переменная "Self"


14-1127485001
Lamer@fools.ua
2005-09-23 18:16
2005.11.13
Kyiv Mastak Party


14-1129747692
ArtemESC
2005-10-19 22:48
2005.11.13
Delphi environment