В WINDOWS 10, во время инсталляции, возникает проблема с созданием ярлыка на рабочем столе. (на w7 и XP всё Ок.)
Инсталляция проходит успешно, программа потом запускается как положено. Но вот ярлык на рабочем столе не создаётся. Причем в конце инсталляции - во время создания ярлыка происходит ошибка:

IPersistFile::Save: сбой; код 0x8007002. Не удаётся найти указанный файл.

Это происходит из за включенного по умолчанию запрета на внесение изменений в т.н. "Контролируемых папках с управляемым доступом". В том числе и на рабочем столе. Папка "Рабочий стол" как и некоторые другие входит по умолчанию в этот список.

Вопрос: - Как красиво обработать ошибку (если она возникнет) если винда не дает создать ярлык. Ну что бы пользователь понял о чем идет речь и почему инсталлятор ругается.

Код обычный:
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";
[Icons]
Name: "{userdesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";Comment: "Приложение такое то"; Tasks: desktopicon

Если снимаю галочку "Создать ярлык на рабочем столе", - ошибки не возникает. Если отключаю функцию "Контролируемых папок", то ошибка так же не возникает.
Т.е. проблема ясна, теперь как обработать ошибку?! Например, что бы выскакивало сообщение "Ярлык на рабочий стол добавьте вречную".

Может пример кто кинет или куда копать...

Спасибо.

И манифест в екзешнике есть и права... ВСЁ
Проблема только в том - как обработать ошибку. Что бы пользователь понял.

Главное вот в чём: - Программа лежит в Интернете и её скачивают юзеры с 0-выми знаниями. Они не знают что такое права.
Им поставили винду и всё!
Им нужно дать подсказку - Не боись, - жми дальше!!! А то там сбоку, в винде выскакивает сообщение о небезопасных файлах и возможных вирусах.

Вопрос только один - как обработать ошибку!

Я же написал что манифест есть. Значит и права админские.
Вопрос в только как обработать ошибку.

Как ошибку обработать?
Если хотите поболтать, - на другую ветку!!!
Если хотите помочь, - буду благодарен.
Вас про права никто не спрашивал. - Спрашивали как обработать ошибку?!

alekcvp,

Спасибо за идею. - Это работает! То, что нужно!

pit_alex,
Я сделал через создание файла. Если файл создается - значит доступ есть, - можно создавать и ярлык.
Попробую Ваш метод. Потом сообщу..
Огромное спасибо.


function alowAccess(): Boolean;
var Hndl: Thandle;
SA: SECURITY_ATTRIBUTES;
begin
Result:= False;
SA.nLength:=SizeOf(SA);
SA.bInheritHandle:=True;
Hndl:= CreateFile(PChar(ExpandConstant('{userdesktop}\test.tmp')), GENERIC_READ or GENERIC_WRITE, 0, SA, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
//Если не удается создать файл, дает ошибку - файл не найден.
if Hndl>0 then
Result:= True
else
begin
Result:=False;
MsgBox('Ярлык на рабочем столе создать не удалось, т.к. запрещено операционной системой.'+#13#10+'Позже создайте его вручную.', mbInformation, MB_ok);
end;
CloseHandle(Hndl);
DeleteFile(ExpandConstant('{userdesktop}\test.tmp'));
end;

pit_alex,

Работает. Спасибо!
С моей стороны вопросов больше нету!