Блок-комп

[DANIЯR]

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

[Terran]

Сообщение от DANIЯR

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

Заблокировать можно так:

Procedure BlockInput; External 'user32.dll';
//--------------------------------------------------//
Procedure Block;
Asm
Push 1;
Call BlockInput;
End;
//--------------------------------------------------//
Procedure UnBlock;
Asm
Push 0;
Call BlockInput;
End;

Только оно блокирует так что кроме сочетания клавишь Alt+Ctrl+Del никак не разблокировать. Или ещё кодом.

[zetrix]

А стандартные средства блокировки вас чем не устраивают? Нажатие Win+L или галочка: "запрашивать пароль" при выходе из режима заставки.

Win XP с этим прекрасно справляется.

[DANIЯR]

Сообщение от Terran

Заблокировать можно так:

Procedure BlockInput; External 'user32.dll';
//--------------------------------------------------//
Procedure Block;
Asm
Push 1;
Call BlockInput;
End;
//--------------------------------------------------//
Procedure UnBlock;
Asm
Push 0;
Call BlockInput;
End;

Только оно блокирует так что кроме сочетания клавишь Alt+Ctrl+Del никак не разблокировать. Или ещё кодом.

А в какой вкладки Block?

Сообщение от zetrix

А стандартные средства блокировки вас чем не устраивают? Нажатие Win+L или галочка: "запрашивать пароль" при выходе из режима заставки.

Win XP с этим прекрасно справляется.

Ой не, мышка пошевелится и он врубается, а если врубится то его выключат т.к. не знают пароль, вот седня выключили, а там был мой проэкт не сохранённый, пришлось всё занова делать
Кстате сочитание клавишь Win+L спс буду знать

[Sm1Le]

Вопрос вот в чем ... Если вас не устраивают стандартные средства, и вы решили написать программу то это все равно не заблочит кнопку на сис.блоке ?! и Комп можно будет выключить ...

[DANIЯR]

Я знаю просто если он будет заблокирован его не кто трогать и выключать не будет

[Sm1Le]

дык тогда можно воспользоваться стд. функциями виндоуса ... Просто почитайте чуть больше о них =)

[Terran]

А в какой вкладки Block?

Block и UnBlock - это название процедур. Можно написать своё название. Что бы вызвать эту процедуру нужно сделать так:
К примеру.

...
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Block;// Заблокировать. 
//UnBlock; Разблокировать.
End;

[Sm1Le]

тока вот в чем дело =)) Если ты заблочиш =) то как ты разблочиш ? =)))) при запуске программы =))) из этого установи таймер на АнБлок =)))

[DANIЯR]

Сообщение от Terran

Block и UnBlock - это название процедур. Можно написать своё название. Что бы вызвать эту процедуру нужно сделать так:
К примеру.

...
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Block;// Заблокировать. 
//UnBlock; Разблокировать.
End;

Ok еще рас спасибо!

Сообщение от Sm1Le

тока вот в чем дело =)) Если ты заблочиш =) то как ты разблочиш ? =)))) при запуске программы =))) из этого установи таймер на АнБлок =)))

Сообщение от Terran

Заблокировать можно так:
Только оно блокирует так что кроме сочетания клавишь Alt+Ctrl+Del никак не разблокировать. Или ещё кодом.