Winlogon, Shell

[Инвокер]

reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.LazyWrite:=false;
reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\',true);
reg.WriteString('Shell',Application.ExeName);
reg.CloseKey;
reg.Free;

Как этого добиться на x64? (win7)
На xp\7 х32 всё работает.
Запуск от админа не решает проблему.
В реестре, в ветви x64 shell меняется, но это никак не дает тот результат, что нужен.
А на x32 shell не меняется. Хотя в данном случае, именно он отвечает за видимый shell.
Проффи, прошу помочь.
Как мне написать, чтобы патчилсяи x64&x32?