[El Sanchez]

Пара вопросов - можно ли как то изменить МБ на MB при переключении на другую локаль? »

nik1967, строка с размером и единицей измерения формируется функцией StrFormatByteSize64, а та берет надписи из строковых ресурсов shlwapi.dll. То же самое и с StrFromTimeInterval. Поэтому, если нужен полный контроль над отображением информации о размерах/времени, то нужно свои функции писать TicksToTime/BytesToSize.

И да, ещё - если кликнуть и удерживать л.к.м. на верхней части инсталлятора (так сказать, поставить на паузу) - инсталлятор зависает »

Ну, правильно, инсталлятор однопоточное приложение, пока обрабатываются мышиные сообщения головной поток ждет. Выносил я как-то закачку в отдельный поток, нестабильно все как-то, на XP работает, на Win7 нет, ошибки всякие вылазят. Будет время доделаю.

как добавить 2-ой путь в скрипт для удаления настроек/сохранений »

habib2302, таким же способом, как и 1-й.

[habib2302]

таким же способом, как и 1-й. »

это как?

[Tco 03]

habib2302,
По мойму очевидней некуда! Так же как и первый...

читать дальше »

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usPostUninstall:
if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения') then
begin
if MsgBoxEx(0, 'Удалить сохранения игры находящиеся по адресу:' + #13#13 + AddQuotes(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения'), 'Удаление сохранений', $00000004 or $00000020, 0, 0) = IDYES then
DelTree(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения', True, True, True);

if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения 2') then
begin
if MsgBoxEx(0, 'Удалить сохранения игры находящиеся по адресу:' + #13#13 + AddQuotes(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения 2'), 'Удаление сохранений', $00000004 or $00000020, 0, 0) = IDYES then
DelTree(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения 2', True, True, True);
end;

end;
end;
end;

[Farser21]

Ребята всем доброго времени суток. Кто может помочь, возникли небольшие вопросы о установщике. Объяснить не смогу. Поэтому прошу связаться со мной по скайпу и я покажу с чем у меня проблемы, заранее спасибо! скайп farsero_o

[Nordek]

Tco 03, А дальше что?
Ведь если папка "Сохранения 2" будет присутствовать а папка "Сохранения" не будет присутствовать, то смысла в таком коде нету т.е он даже не сработает. Учитывать нужно все нюансы.
Ну, продолжай, продолжай...

[Tco 03]

А дальше что? »

Чувак... Дальше двигаем извилинами

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

[*code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
 usPostUninstall:
if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры') or DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Не мои игры') then
begin
if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры') then
if MsgBoxEx(0, 'Удалить сохранения игры находящиеся по адресу:' + #13#13 + AddQuotes(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры'), 'Удаление сохранений', $00000004 or $00000020, 0, 0) = IDYES then
 DelTree(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры', True, True, True);
 
if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Не мои игры') then
if MsgBoxEx(0, 'Удалить сохранения игры находящиеся по адресу:' + #13#13 + AddQuotes(AddBackslash(ExpandConstant('{userdocs}')) + 'Не мои игры'), 'Удаление сохранений', $00000004 or $00000020, 0, 0) = IDYES then
 DelTree(AddBackslash(ExpandConstant('{userdocs}')) + 'Не мои игры', True, True, True);
end;
end;
end;

[nik1967]

строка с размером и единицей измерения формируется функцией StrFormatByteSize64, а та берет надписи из строковых ресурсов shlwapi.dll. То же самое и с StrFromTimeInterval. Поэтому, если нужен полный контроль над отображением информации о размерах/времени, то нужно свои функции писать TicksToTime/BytesToSize. »

С функциями то понятно, разобрался откуда что растёт, а вот самому написать функции "если нужен полный контроль над отображением информации о размерах/времени" ума не хватает. Это очень сложно и времязатратно? Был бы очень признателен (да и думаю не один я), если бы ты выбрал время и написал эти функции.

[Nordek]

Tco 03

Tco 03, Другое дело. А то на словах "

По мойму очевидней некуда! »

" все мастера.

Дальше нужно двигать извилинами »

Так подсказывай нуждающимся как правильно это делать.

Дальше нужно двигать извилинами »

Возвращаю шайбу: Знание "Русского языка" тоже нужно.

[habib2302]

Tco 03, выдает ошибку

[Tco 03]

habib2302,
Во первых: usUninstall - это то, что нужно выполнить перед деинсталяцией. usPostUninstall - после.
Во вторых у тебя уже есть:
case CurUninstallStep of
usPostUninstall:
зачем тебе: CurUninstallStep = usUninstall

Код полностью рабочий, проверь просто так, без ничего. А в своём скрипте разберайся сам. И не суй всё куда попало.