Как включить Quick Launch у пользователей терминального сервера.

[Venberg]

Доброго Времени суток господа!

Подскажите пожалуйста, как через реестр включить у пользователей терминального сервера Quick Launch?
Самой папки нет в профилях. Если ее не создать скриптом, то раскидаю по профилям вручную.
Не хотелось бы заходить под логином каждого из 70 пользователей и включать quick launch вручную.
Можно ли будет сделать скрипт запускаемый при входе пользователя только один раз, а не при каждом входе пользователя на терминал?

[iptyt]

Доброго Времени суток.


-----------------------------------------------------------------
const
WMTRAY_TOGGLEQL = WM_USER + 237;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow('Shell_TrayWnd', nil), WMTRAY_TOGGLEQL, 0, 1); // Включить
(*
SendMessage(FindWindow('Shell_TrayWnd', nil), WMTRAY_TOGGLEQL, 0, 0); // Отключить
*)
end;
-----------------------------------------------------------------