[Raz3r]

ролрллгнлнглнг

[Raz3r]

Разве никто не может помочь?

[Habetdin]

Raz3r, вам же даже программа сообщила, где и в чем ошибка

Runtime Error at 70:165: "Unknown custome message name". »

Замените:

Код:

CustomMessage('Удалить все пользовательские настройки программы?')

на простую строку:

Код:

'Удалить все пользовательские настройки программы?'

И аналогично для второго вызова CustomMessage.

---

Функция CustomMessage используется для получения значений из секции [CustomMessages], например:

Код:

[Languages]
Name: "en"; MessagesFile: "compiler:Default.isl"
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"

[CustomMessages]
ru.TestExample=Удалить файл?
en.TestExample=Delete file?

[Code]
// Где-то в коде...
// CustomMessage('TestExample')
// или же:
// ExpandConstant('{cm:TestExample}')

[Dodakaedr]

Простейшее использование IsWin64 на примере установки файлов: »

То есть по этому примеру не нужно что-то прописывать в секции [code]?

[code] function InitializeSetup: Boolean; begin if IsWin64 then MsgBox(ExpandConstant('{cm:IsWin64}') + ExpandConstant('{pf64}'), mbInformation, MB_OK) else MsgBox(ExpandConstant('{cm:IsWin32}') + ExpandConstant('{pf32}'), mbInformation, MB_OK); result:=true; end; »

Это нужно только для информирования, или какая-то еще роль здесь играет?

[Dinvin4ester]

Ребята как убрать в скрипте распаковку исдоном?

[nik1967]

Ребята как убрать в скрипте распаковку исдоном? »

Написать самому нужный инсталлятор. ИМХО проще, чем в чужом скрипте вырезать незнамо что.

[Nordek]

Это нужно только для информирования »

Да.
В Inno, проверка IsWin64 встроенная - можно даже наглядно увидеть присутствие IsWin64:
Inno Script Studio
"Вид » Секции » Файлы"
На элементе жмёшь "ПКМ (Правая кнопка мыши) » Свойства элемента (Alt+Enter)"
Затем переходишь во вкладку "Общие"
Далее, "Скрипты паскаля » Проверка:"

[Dodakaedr]

Nordek, спс

[Nordek]

Unknown custome message name »

Ну правильно. Ругается на то, что отсутствует CustomMessages.
Вот готовый вариант:

Код:

[CustomMessages]
DelSetUser=Удалить все пользовательские настройки программы?
DelSetServer=Удалить все файлы сервера?

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if (CurUninstallStep = usUninstall) and
 (MsgBox(CustomMessage('DelSetUser'), mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
 DelTree(ExpandConstant('{app}\config'), True, True, True);
begin
 if (CurUninstallStep = usUninstall) and
 (MsgBox(CustomMessage('DelSetServer'), mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
 DelTree(ExpandConstant('{app}\files'), True, True, True);
 DeleteFile(ExpandConstant('{app}\ts3server.sqlitedb'));
end;
end;

в данном скрипте обрати внимание на то, что изменилось в MsgBox.

Если же хочешь прописывать в MsgBox текст, то удали то, что отметил красным:

Код:

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if (CurUninstallStep = usUninstall) and
 (MsgBox(CustomMessage('Удалить все пользовательские настройки программы?'), mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
 DelTree(ExpandConstant('{app}\config'), True, True, True);
begin
 if (CurUninstallStep = usUninstall) and
 (MsgBox(CustomMessage('Удалить все файлы сервера?'), mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
 DelTree(ExpandConstant('{app}\files'), True, True, True);
 DeleteFile(ExpandConstant('{app}\ts3server.sqlitedb'));
end;
end;

т.е должно получиться так:

Код:

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if (CurUninstallStep = usUninstall) and
 (MsgBox('Удалить все пользовательские настройки программы?', mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
 DelTree(ExpandConstant('{app}\config'), True, True, True);
begin
 if (CurUninstallStep = usUninstall) and
 (MsgBox('Удалить все файлы сервера?', mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
 DelTree(ExpandConstant('{app}\files'), True, True, True);
 DeleteFile(ExpandConstant('{app}\ts3server.sqlitedb'));
end;
end;

Кстати, использование [CustomMessages], позволяет задавать сообщения на других языках, например:

Код:

[Languages]
Name: en; MessagesFile: compiler:Default.isl
Name: ru; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
en.add=Add
en.del=Delete
ru.add=Добавить
ru.del=Удалить

[Dodakaedr]

Использую Inno Ultra, в редакторе форм есть строка BorderIcons в которой можно скрыть системное меню (biSystemMenu), теперь интересует как вывести только кнопку "закрыть"?