K9000
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, у меня к вам ОГРОМНАЯ просьба:
1) Не повторяйте вопросы, реально отвечают ТРИ человека
2) Перед тем, как задавать вопросы, прочитайте:
а) Нормальную книгу по Delphi или Pascal
б) Раздел Pascal Scripting в справке
в) Если вам нужны красивые картинки, то примеры к botva2
3) Поищите в теме
4) Только если вы не нашли ответа, задавайте вопрос сюда
Извините за оффтоп, но уже достало по сорок раз отвечать на одни вопросы
Добавлено:
TonyJef
Ищи ниже, там лежит Xenus 2 + FreeArc
GhoSt_1616
Похоже, у тебя блокируется создание всех ярлыков. Вообще, тебе оно надо?
Да, можно все из Icons убрать и писать в коде:
Код:
if Icons.Checked then
CreateShellLink(ExpandConstant('{userdesktop}')+'\Transformers War For Cybertron.lnk', "Запустить игру", ExpandConstant('{app}')+'\Binaries\TWFC.exe', '', ExpandConstant('{app}'), ExpandConstant('{app}')+'\Binaries\TWFC.exe', 0, SW_SHOW);
if not NoIcons.Checked then begin
CreateShellLink(ExpandConstant('{group}')+'\Transformers War For Cybertron.lnk', "Запустить игру", ExpandConstant('{app}')+'\Binaries\TWFC.exe', '', ExpandConstant('{app}'), ExpandConstant('{app}')+'\Binaries\TWFC.exe', 0, SW_SHOW);
CreateShellLink(ExpandConstant('{group}')+'\Удалить игру.lnk', "Удалить игру", ExpandConstant('{uninstallexe}'), '', ExpandConstant('{app}'), ExpandConstant('{app}')+'\Uninstall.ico', 0, SW_SHOW);
end;
|
Что нужно, поменяешь |
. 
