[Delphi]Вопрос о реестре

Привет всем!Интересует вопрос,почему в висте неработает вот этот код:

Code:

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;

C учетом того,что на XP работает,может подскажете в чем проблема?(
P.S. Для тех кто непонял,нужно изменить занение Shell в Vistе

 

Для конкретного какраз ненужно,нужно для всех пользователей....

 

Ты говоришь вариант именно для висты да?

 

А можно поподробней об этом?И еще,немог бо ты подсказать код удаление всех пользователей кроме активного?

 

Тупо запускай программу с повышенными админскими правами и будет тебе счастье.
Тока UAC будет задалбливать иногда.