Lock

← →
Строитель (2003-03-12 12:49) [0]

Видел как то такую штуку : 2 компа в сети. На одном серверная прога на другой клиентская.(но это не суть ). Так вот нажимаеш на серверной проге кнопулю и клиенская машина лочится.
Вопрос: С помощью чего это реализовано.?? Если кто шарит подскажите функцию буду признателен.

← →
Serginio (2003-03-12 12:50) [1]

LockFile

← →
dimich1978 (2003-03-12 12:55) [2]

Реализуется используя
TserverSocket & TclientSocket
+
ExitWindows(EWX_REALLYLOGOFF,0);
ExitWindows(EWX_LOGOFF,0);

← →
Строитель (2003-03-12 13:34) [3]

я опять не так обьяснил....
Лочится она так что ни клава ни мыш не работает а все остальное работает

← →
dimich1978 (2003-03-12 13:49) [4]

залочить можно(хорошо работает под вин9х), под 2000 снять легко
procedure BlockInput; external "user32.dll";

Передаем параметры в стек вручную через push (1 – заблокировать; 0 – разблокировать):

procedure Block;
asm
push 1
call BlockInput
end;

procedure UnBlock;
asm
push 0
call BlockInput
end;
Ну ACD отрубить в 9х легко. Это надо сделать Потму что по этим нажатию этих клавиш все снимается.

← →
Строитель (2003-03-12 15:01) [5]

Спасибо.
Покачто ничего непонятно но попробую разобратся.
Может подскажеш чё теперь почитать кроме хелпа чтобы это понять ??

← →
dimich1978 (2003-03-12 15:22) [6]

по асму книжечки.
Вот твои действия
На клиенте:
Описываеш подключаемую процедуру
implementation

uses Unit2;

{$R *.DFM}

procedure BlockInput; external "user32.dll";

Затем
когда от сервера придет сообщение заблокировать, то тут то ты и выполняешь один блок из приведенного кода. Потом так же с сервера придет сообщение на разблокировку.
А читать , пробуй статьи по Сокетам это для управления компом по сети.

← →
Строитель (2003-03-12 15:54) [7]

Спасибо большущее домой приду попробую.
А по сокетам я вчера разабрался.
А если чё нидь недогоню можно на мыло ???

← →
dimich1978 (2003-03-12 16:10) [8]

Я сам с сокетами еще не совсем разорался, тонкости при их работе есть. Пиши если чего , чем смогу тем помогу

Lock Найти похожие ветки