VPF::Запретить любые действия везде

DemoCode

Дата 27.2.2006, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Какие варианты, есть чтобы сделать так, чтобы, пока пользователь ни сделал определенных действий в моей программе, ни мог больше ничего ничего сделать?

Я блокирую Ctrl+Alt+Del, Alt+Tab, Alt+F4, а также делаю ClipCursor в области моей формы.
Но, проблема в том, что если нажать клавишу Win, далее можно делать что угодно. Как её запретить? А что ещё надо запретить, чтоб лишить пользователя выполнять какие-либо действия?

Под XP

Спасибо.

Это сообщение отредактировал(а) DemoCode - 27.2.2006, 20:54

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

Quadr0

Дата 27.2.2006, 22:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:35

DemoCode

Дата 28.2.2006, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Я подпраил твой код:

Код


function KeyboardProc(nCode: Integer; WP: wParam; LP: lParam): integer; stdcall;
begin
  Result := CallNextHookEx(HKbdHook, nCode, WP, LP);
  if nCode = HC_ACTION then
  begin
    if (WP = VK_LWIN) or (WP = VK_RWIN) then
    begin
      SetforeGroundWindow(MFOrm);
      SendMessage(MForm, WM_SETFORE, 0, 0);
    end;
  end;
end;

Но ни работает. При нажатии на Win открывается пуск.

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

Romikgy

Дата 28.2.2006, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

А через это GetKeyboardState посмотреть его код?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

DemoCode

Дата 28.2.2006, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Цитата(Romikgy @ 28.2.2006, 12:46

)

А через это GetKeyboardState посмотреть его код?

так тоже пробовал, не работает.

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

Romikgy

Дата 28.2.2006, 13:02 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Цитата(DemoCode @ 28.2.2006, 11:23

)

так тоже пробовал, не работает.

Эт просто посмотреть , smile

а вот если его перехватить и обнулять эту кнопку, типа нажатия не было или keybd_event это перехватить smile

я не знаю кто первый вызывается

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

DemoCode

Дата 28.2.2006, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Цитата(Romikgy @ 28.2.2006, 14:02

)

если его перехватить и обнулять эту кнопку, типа нажатия не было или keybd_event это перехватить

В том-то и проблема. У меня получается перехватить любые клавиши, кроме Win.

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

bems

Дата 28.2.2006, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Создай свой десктоп и работай там

--------------------

Обижено школьников: 8

Romikgy

Дата 28.2.2006, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Цитата(DemoCode @ 28.2.2006, 12:08

)

меня получается перехватить любые клавиши

Я те посоветовал не клавиши перехватывать а ф-ции апи, для получения нажатой клавиши

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rrader

Дата 1.3.2006, 11:30 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Код


Procedure TForm1.Timer1Timer(Sender: TObject);
Var
  H: THandle;
Begin
  H := FindWindow('DV2ControlHost', NIL);
  If H <> 0 Then SendMessage(H, WM_CLOSE, 0, 0);
  SetForegroundWindow(Handle);
End;

Можно и улучшить - первое, что пришло в голову smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

xXxFENIKSxXx

Дата 17.3.2006, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 17.3.2006

Репутация: нет
Всего: нет

Извините нашли ли способ всё таки заблочить
Alt +TAb
Ctrl + Esc
Alt + F4
Windows + d
Особенно саму кнопку Windiws
а то проблема остаёться актуальной.
Только просьба не то что в теории а то что реально работает.
Был бы весьма благодарен.

Romikgy

Дата 17.3.2006, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

xXxFENIKSxXx, берешь и ищешь по форуму

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

xXxFENIKSxXx

Дата 17.3.2006, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 17.3.2006

Репутация: нет
Всего: нет

Цитата(Romikgy @ 17.3.2006, 16:41)

xXxFENIKSxXx, берешь и ищешь по форуму

Нельзя ли ссылочкой плиз
Ты же наверняка знаешь где это лежит smile

а форум большой

bems

Дата 17.3.2006, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Я ж сказал:

Цитата(bems @ 28.2.2006, 14:06

)

Создай свой десктоп и работай там

CreateDesktop ну и тд

--------------------

Обижено школьников: 8

xXxFENIKSxXx

Дата 18.3.2006, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 17.3.2006

Репутация: нет
Всего: нет

А нельзя ли более подробно описать
CreateDesktop

bems

Дата 19.3.2006, 09:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Цитата(xXxFENIKSxXx @ 18.3.2006, 08:34

)

А нельзя ли более подробно описать
CreateDesktop

в MSDN

--------------------

Обижено школьников: 8

xXxFENIKSxXx

Дата 19.3.2006, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 17.3.2006

Репутация: нет
Всего: нет

Блин никак

В поисковике мсдн пишу фразу выдаёт чистый лист (

HackMan

Дата 19.3.2006, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

Кнопка Win отключается через реестр

--------------------

Завтра - это самый загруженный день недели smile

MIX55

Дата 19.3.2006, 20:56 (ссылка)

(нет голосов)

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

Репутация: нет
Всего: 4

Цитата

В поисковике мсдн пишу фразу выдаёт чистый лист (

99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь
вот тут посмотри

Это сообщение отредактировал(а) MIX55 - 19.3.2006, 20:57

--------------------

Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e

xXxFENIKSxXx

Дата 20.3.2006, 06:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 17.3.2006

Репутация: нет
Всего: нет

Цитата(HackMan @ 19.3.2006, 16:54)

Кнопка Win отключается через реестр

а нельзя ли подробнее как это сделать
хотябы указать на запись кнопки пуск в реестре ? smile

Добавлено @ 06:29
Люди а может можно програмно закрыть кнопку пуск )
открыть же её програмно можно вот и скажем самый простой способ когда пользователь будет открывать пуск программа автоматически будет его закрывать ) оформить енто всё через таймер.
Но всё это реально если конечно пуск програмно можно закрыть =)
Добавлено @ 06:30

Цитата(MIX55 @ 19.3.2006, 20:56)

Цитата

В поисковике мсдн пишу фразу выдаёт чистый лист (

99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь
вот тут посмотри

Никак

Sunvas

Дата 25.3.2006, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(xXxFENIKSxXx @ 20.3.2006, 06:27

)

Люди а может можно програмно закрыть кнопку пуск )

Можно! Только потом трудновато будет ее октрыть!

Код


procedure TForm1.Button1Click(Sender: TObject);
var StartButton:hwnd;
begin
StartButton := FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button', nil);
PostMessage(StartButton,WM_CLOSE,0,0);
end;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Romikgy

Дата 27.3.2006, 09:00 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Имхо проще сделать ее невидимой!!!

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Girder

Дата 27.3.2006, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

1.Береш вот ентот код: http://forum.vingrad.ru/index.php?showtopi...st&p=424364

2.добавляеш в него поиск процесса: "csrss.exe" что бы узнать его PID. (PS: Как енто сделать... поиск по форуму smile

)

3. Далее находиш вот енту строчку:

Код


     if (Thread32.th32OwnerProcessID<>IgnorePrID) then

и заменяеш ее на(где PID_csrss см. 2 пункт):

Код


     if (Thread32.th32OwnerProcessID<>IgnorePrID)and(Thread32.th32OwnerProcessID<>PID_csrss) then

4. Ну а строчку

Код


Sleep(5000); //Глушим все... на 5 секунд.

можеш заменить для начала на вот енто(Что бы увидеть как енто работает):

Код


   p:=0;
   while (p<>50) do
    begin
     Sleep(100);
     inc(p);
     caption:=inttostr(p);
     Application.ProcessMessages;
    end;

--------------------

Как слышим, так и пишим.
Истина где-то там...

DemoCode

Дата 27.3.2006, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

А может у кого есть готовая оттестированная либа для того, чтобы, пока пользователь ни сделал определенных действий в моей программе, ни мог больше ничего ничего сделать?

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

Sunvas

Дата 28.3.2006, 00:18 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(Romikgy @ 27.3.2006, 09:00

)

Имхо проще сделать ее невидимой!!!

Но ведь менюшка по нажатию кнопки Windows останется ведь!

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Romikgy

Дата 28.3.2006, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Цитата(Sunvas @ 27.3.2006, 23:18

)

по нажатию кнопки Windows

дык заблокируй эту кнопку smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

hitter

Дата 28.3.2006, 20:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

Репутация: нет
Всего: нет

У этой менюшки есть свой хендл ИМХО послать ему WM_CLOSE, WM_QUIT, e.t.c.
Только как получить ентот хендл?
Кнопку лочить невыгодно - хоть убей её, менюшка все равно будет появлятся!

Sunvas

Дата 29.3.2006, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(hitter @ 28.3.2006, 20:22

)

Только как получить ентот хендл?

hitter, нужно читать тему внимательней!

Код


FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button', nil);

Цитата(hitter @ 28.3.2006, 20:22

)

Кнопку лочить невыгодно - хоть убей её, менюшка все равно будет появлятся!

Но когда я ее закрываю, то уже ничего не поможет, разве что оболочку перегрузить.

Цитата(Romikgy @ 28.3.2006, 08:50

)

дык заблокируй эту кнопку

А если я на клавиатуре нажму кнопку Windows, то менюшка появится!

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

hitter

Дата 29.3.2006, 07:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

Репутация: нет
Всего: нет

Цитата(Sunvas @ 29.3.2006, 04:43

)

hitter, нужно читать тему внимательней!

ОК

Цитата(Sunvas @ 29.3.2006, 04:43

)

А если я на клавиатуре нажму кнопку Windows, то менюшка появится!

Ладно тогда надо лочить кнопу.

Цитата(Girder @ 27.3.2006, 14:55

)

Код


  if (Thread32.th32OwnerProcessID<>IgnorePrID) then    
и заменяеш ее на(где PID_csrss см. 2 пункт):    
 if (Thread32.th32OwnerProcessID<>IgnorePrID)and(Thread32.th32OwnerProcessID<>PID_csrss) then

4. Ну а строчку
код

Код


Sleep(5000); //Глушим все... на 5 секунд.

можеш заменить для начала на вот енто(Что бы увидеть как енто работает):
код Pascal/Delphi

5.

Код


   p:=0;    
   while (p<>50) do    
    begin    
     Sleep(100);    
     inc(p);    
     caption:=inttostr(p);    
     Application.ProcessMessages;    
    end;

А что этим ни кто не воспользовался?

Sunvas

Дата 30.3.2006, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(hitter @ 29.3.2006, 07:18

)

А что этим ни кто не воспользовался?

Наверное потому что это слишком уж запутано.. Да и в ограниченой учетной записи не работает..

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Rrader

Дата 30.3.2006, 07:08 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Цитата

hitter, нужно читать тему внимательней!
FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button', nil);

Это не хендл менюшки. Посмотрите мой пост в этой теме, там я показал, как определить нужный хендл smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

hitter

Дата 30.3.2006, 07:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

Репутация: нет
Всего: нет

Цитата(Sunvas @ 30.3.2006, 04:11

)

Наверное потому что это слишком уж запутано..

Для кого-то даже сорцы тетриса запутанны smile

Цитата(Sunvas @ 30.3.2006, 04:11

)

Да и в ограниченой учетной записи не работает..

А запустить код в контексте другого пользователя?

Sunvas

Дата 5.4.2006, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(Rrader @ 30.3.2006, 07:08

)

Это не хендл менюшки. Посмотрите мой пост в этой теме, там я показал, как определить нужный хендл

Хе-хе! Но ведь кнопочка-то закрывается! Значит хендл есть!

Цитата(hitter @ 30.3.2006, 07:13

)

Для кого-то даже сорцы тетриса запутанны

Да, да! Есть и такие люди! smile

Цитата(hitter @ 30.3.2006, 07:13

)

А запустить код в контексте другого пользователя?

А если у меня есть только ограниченая? (я не знаю пароль другого пользователя)

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

hitter

Дата 5.4.2006, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

Репутация: нет
Всего: нет

Цитата(Sunvas @ 5.4.2006, 18:50

)

А если у меня есть только ограниченая? (я не знаю пароль другого пользователя)

Надо узнать! smile

Sunvas

Дата 6.4.2006, 07:15 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(hitter @ 5.4.2006, 16:38

)

А если у меня есть только ограниченая? (я не знаю пароль другого пользователя)

Надо узнать!

Будут идеи как это быстро сделать, если пароль состоит где-то из 20-25 символов - пиши в ПМ!

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »