[daniil-bond]

В инсталяторе запускаю скрипты, который заливают данные в базу. Так вот как можно обрабатывать ошибки если не запущен OracleXE??? Может как нибудь перед запуском скриптов делать проверку запущен ли Oracle???

[p3rf3ct1c]

Здравствуйте! Можете помоч с сохранениями игры? Как мне сделать чтобы после удаления игры сохранения удалялись через программу killsave которые находятся тут - C:\ProgramData\2DBoy\WorldOfGoo? Или если есть другие способы можете подсказать?

И еще вопрос, можете подсказать как склеивать коды, чтобы не вылезало никаких ошибок?

[Serega]

Как мне сделать чтобы после удаления игры сохранения удалялись »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  Res: Integer;
begin
  case CurUninstallStep of
    usPostUninstall:
    begin
      //Проверяем присутствие папки после удаления
      If DirExists(ExpandConstant('{app}')) then
      //Создаем диалог с тремя кнопками
      case MsgBox('Папка "' + ExpandConstant('{app}') + '" не пуста.'#13#13 +
          '"Да" – полное удаление всех файлов в папке, включая саму папку.' #13#13 +
          '"Нет" – открыть папку в проводнике, чтобы вручную удалить файлы.'#13#13 +
          '"Отмена" – ничего не делать, удалить папку позже самостоятельно.', mbInformation, MB_YESNOCANCEL) of
      IDYES:
        begin
          if not DelTree(ExpandConstant('{app}'), True, True, True) then
          MsgBox('Папка не удалена.' #13#13 'Папка или один из файлов в ней задействованы другим приложением.', mbError, MB_OK);
        end;
      IDNO:
        begin
          if not ShellExec('open', ExpandConstant('{app}'), '', '', SW_SHOWMAXIMIZED, ewNoWait, Res) then
          MsgBox('Ошибка открытия.' #13#13 'Папка не найдена.', mbError, MB_OK);
        end;
      IDCANCEL:
        begin
          Exit;
        end;
      end;
    end;
  end;
end;

можете подсказать как склеивать коды, чтобы не вылезало никаких ошибок? »

Если коротко, то - правильно склеивать...
Имена процедур или функций могут быть только в одном экземпляре внутри одного скрипта. После имени процедуры или функции может идти var, где вы задаёте переменные, которые будут использованы только в данной процедуре или функции. Затем всегда идёт begin - начало выполнения, а заканчивается - end;... Я даже не знаю, что можно сказать, всё приходит с пониманием того, что вы делаете...

[p3rf3ct1c]

Serega_,
Почему то при компиляции выдает ошибку

[Serega]

p3rf3ct1c, здесь говориться:
Неожиданное исключение класса в препроцессоре.
Нарушение доступа в адресе модуля ISCmplr.dls

Попробуйте переустановить Inno Setup, т.е. эта ошибка не связанна с приведённым мной скриптом.

[p3rf3ct1c]

Serega_,
Спасибо, переустановил, ошибки нет, но хотелось бы чтобы при удалении удалялись сохранения которые находятся не в папке с игрой а в другом месте, например в моих документах, или appdata или programdata, как прописать путь или чтобы программа сама их нашла и удалила?

[Serega]

например в моих документах, или appdata или programdata, как прописать путь »

Посмотрите внимательно скрипт, там есть строки:

Код:

...........................
      //Проверяем присутствие папки после удаления
      If DirExists(ExpandConstant('{app}')) then
..........................

Допустим, нам надо проверить наличие папки в Моих документах, тогда пишем так:

Код:

...........................
      //Проверяем присутствие папки после удаления
      If DirExists(ExpandConstant('{userdocs}\My Program')) then
..........................

[p3rf3ct1c]

Serega_,

//Проверяем присутствие папки после удаления If DirExists(ExpandConstant('{userdocs}\My Program')) then »

А, понятно, извиняюсь что не заметил, я просто новичок в inno.

А как проверить наличие папки в appdata или programdata?

[Serega]

p3rf3ct1c, почитайте Справку, найдёте много интересного...

{userappdata} & {commonappdata} Путь к папке с данными приложения (Application Data).

а programdata - это какая-то ваша папка? Если у неё путь, который вы указывали ранее C:\ProgramData\2DBoy\WorldOfGoo, то {sd}\ProgramData\2DBoy\WorldOfGoo, где {sd} - системный диск.

[p3rf3ct1c]

Serega_,
Спасибо вам! Все получилось.

C:\ProgramData\ у меня скрытая папка как и Application Data, в XP вроде нет папки ProgramData (хотя не знаю) , а у мебя сейчас стоит Win7. Эта папка вроде и в Висте есть.