Служба не устанавливается

[tovarz]

Здравствуйте
Создал Service Application на Deplhi 7.
В процедуре ServiceCreate узнаю путь к папке AppData и папку запущенного приложения:

AppDataDir := GetSpecialFolderPath( CSIDL_APPDATA ) + '\' + Dir;
CurDir:= ExtractFileDir(ParamStr(0));

(Dir - это название подпапки моего приложения в AppData)
Далее, копирую туда файл запущенного приложения

CopyFile(PAnsiChar(CurDir + '\' + ExeName), PAnsiChar(AppDataDir + '\' + ExeName), true)

Далее, запускаю установку службы (то есть запущенное приложение устанавливает копию самого себя как службу из папки AppData)

ShellExecute(0, nil, PAnsiChar(AppDataDir + '\' + ExeName), '/install', nil, SW_SHOW);

Но после нескольких секунд Windows 7 выдает ошибку
Exception EOSError in module myappservice.exe at 0000ccf6
System error code 5
отказано в доступе

Как побороть это и установить службу без проблем?
Благодарю за ответы!

[macomics]

Запускать с правами Администратора
Вместо ShellExecute используйте CreateProcessAsUser