[Dodakaedr]

Эмм, что-то у меня это равенство ни при каких условиях не выполняется, хоть есть нестандартные символы, хоть нет. »

На какой символ проверяете?

Я ещё отдельно выставил 2 разные переменные в первой и второй проверке »

они не могли испортить функцию?
Попробуйте еще так:

Скрытый текст

Код:

[Setup]
AppName=App
AppverName=App v1.0
DefaultDirName={pf}\App
OutputDir=.

[Code]
var
  errorcode: integer;

function IsAnsiOrSym(S: String; var ResultError: integer): Boolean;
var
  n: string;
  i,j: integer;
begin
  if CompareStr(AnsiUppercase(S), Uppercase(S)) = 0 then
  if CompareStr(Lowercase(S), AnsiLowercase(S)) = 0 then Result := True else Result := False;
  if not result then ResultError := 1;
  if result then
  begin
    n := '!"@#$%^&*';
    for i:=1 to length(s) do
    for j:=1 to length(n) do
    begin
      if s[i] = n[j] then
      begin
        Result := False;
        ResultError := 2;
        exit;
      end;
    end;
    end;
end;

procedure InitializeWizard();
begin
  if not (IsAnsiOrSym(ExpandConstant('{src}'), errorcode)) then if (errorcode=1) then MsgBox('Найдена кириллица в: '+ExpandConstant('{src}'),mbError,MB_OK);
  if not (IsAnsiOrSym(ExpandConstant('{src}'), errorcode)) then if (errorcode=2) then MsgBox('Найден спецсимвол в: '+ExpandConstant('{src}'),mbError,MB_OK);
end;

[ErikPshat]

На какой символ проверяете? они не могли испортить функцию? »

Вполне может быть я что-то не так подхимичил. Вроде бы по логике всё так же должно было остаться.
Я разделил ту функцию на 2 отдельные функции. Ну там переменную "n" поменял на "m", т.к. первая у меня уже используется в коде.

Вот моя химия:

Код:

function IsAnsi(S: String): Boolean;
begin if CompareStr(AnsiUppercase(S), Uppercase(S)) = 0 then
begin if CompareStr(Lowercase(S), AnsiLowercase(S)) = 0 then Result := True; end; end;

function IsSymb(S: String): Boolean; var m: String; i, j: Integer;
begin
  m := '!"@#$%^&*';
  for i:=1 to length(S) do
  for j:=1 to length(m) do
  begin if S[i] = m[j] then Result := False; end;
end;

procedure InitializeWizard();
if not(IsAnsi(ExpandConstant('{src}'))) then begin MsgBox(ExpandConstant('{cm:CirillicPATH}')+#10#10+ExpandConstant('{src}'), mbError, MB_OK);Exit;end;
if not(IsSymb(ExpandConstant('{src}'))) then begin MsgBox(ExpandConstant('{cm:SimbolsPATH}')+#10#10+ExpandConstant('{src}'), mbError, MB_OK);Exit;end;

Проверил ваш код. Всё отлично работает! Из функции exit; перенёс в исполняемый код, т.к. мне нужно, чтобы после оповещения, окно закрывалось и прекращало работу.
Спасибо большое!!!

[vk_k14m@vk]

Народ, у меня вопрос по секции [UninstallDelete]. При удалении приложения нужно так же удалять конфиг приложения. Но можно ли сделать, что б уинсталлер просил подтверждение при удалении?

[Dodakaedr]

можно ли сделать, что б уинсталлер просил подтверждение при удалении? »

Код:

[Setup]
AppName=App
AppverName=App v1.0
DefaultDirName={pf}\App
OutputDir=.

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
    if MsgBox('Также удалить настройки программы?', mbConfirmation, MB_YESNO)=IDYES then DeleteFile(ExpandConstant('{commonappdata}\Proga\config.cfg'));
end;

[Iska]

Dodakaedr, лучше бы вопрос задавался в самом начале процесса деинсталляции, а не в конце (если я правильно понял логику кода).

[vk_k14m@vk]

лучше бы вопрос задавался в самом начале процесса деинсталляции, а не в конце (если я правильно понял логику кода). »

Мне нужно что б удалилось само приложение, и в конце деинсталлер уточнял, удалять ли и конфиг тоже. Или оставить...

И наверно нужно было уточнять, что конфиг не один а несколько. И достоверно известна только папка в которой они находятся, но не их названия...

Изменил код на как мне казалось рабочий вариант.
[code]

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
    if MsgBox('Также удалить настройки программы?', mbConfirmation, MB_YESNO)=IDYES then DelTree('{app}\config', True, True, True);
end;

Но нет. Установщик спросил удалять или нет, и при согласии файлы остались на месте. Что я сделал не так?

[Dodakaedr]

И наверно нужно было уточнять, что конфиг не один а несколько »

Уточняйте все и сразу: какого рода ваши конфиги, маска файлов подойдет?

лучше бы вопрос задавался в самом начале процесса деинсталляции »

Если пользователь удаляет прогу, то ему, я думаю, все равно где задавать вопрос.

И судя по ответу

Мне нужно что б удалилось само приложение, и в конце деинсталлер уточнял »

я предоставил пример что требовалось. И сейчас будем пол страницы узнавать подробности конфигов.

[Iska]

Если пользователь удаляет прогу, то ему, я думаю, все равно где задавать вопрос. »

Сугубо с точки зрения эргономики — в начале, ибо в противном случае на мелких (по количеству файлов) инсталляциях навряд ли время под процесс основной деинсталляции будет особо продолжительным, а вот на крупных — данная пауза будет заметно раздражать.

И судя по ответу я предоставил пример что требовалось. И сейчас будем пол страницы узнавать подробности конфигов. »

Ну, это как обычно .

[vk_k14m@vk]

Уточняйте все и сразу: какого рода ваши конфиги, маска файлов подойдет? »

3 маски нужно. Там конфиги трех разных расширений...

[Dodakaedr]

Что я сделал не так? »

Указали не правильную константу.