[Gnom_aka_Lexander]

Можно объединить begin MsgBox ...... end а также условия Pos(Uppercase(ExpandConstant('{...}')) »

Можно, у меня както так вышло:

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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
Function cm(Message: String): String; Begin Result:= ExpandConstant('{cm:'+ Message +'}') End;

function NextButtonClick(CurPageID: Integer): Boolean;
var i: Integer; S:String; One,Two: Boolean;

Begin Result:=True; if CurPageID = wpSelectDir then begin

for i:= 1 to Length(WizardForm.DirEdit.Text) do if (WizardForm.DirEdit.Text[i] > #122)
then begin One:=True;S:='Cyrillic'; end;

if (Pos(Uppercase(ExpandConstant('{pf}')), Uppercase(ExpandConstant('{app}'))) > 0) then Two:=True;
if (Pos(Uppercase(ExpandConstant('{win}')),Uppercase(ExpandConstant('{app}'))) > 0) then Two:=True;

if Two then S:='SysDirSelect'; if One or Two then begin
MsgBox(S, mbError, mb_Ok); Result:=False; Exit;end; end; End;

[MrLOLs]

Лександер, Спасибо!

Код запрещает устанавливать программу в папку Windows или Program Files, а также запрещает использовать кириллицу в пути установки.

[Serega]

Вот конечный вариант »

Для чего вы используете Function cm(Message: String): String;, на мой взгляд бесполезная функция. Так же в цикле for...to...do не хватает Break;, т.е. для чего перебирать дальше, если мы уже нашли...
Как говорят, оптимизации кода нет предела, но всё же я бы записал так:

Пример

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
var
  i: Integer;
  path: string;
begin
  if CurPageID = wpSelectDir then
    begin
      path := Uppercase(WizardForm.DirEdit.Text);
      if (Pos(Uppercase(ExpandConstant('{pf}')), path) > 0)
        or (Pos(Uppercase(ExpandConstant('{win}')), path) > 0) then
        begin
           MsgBox(ExpandConstant('{cm:SysDirSelect}'), mbError, MB_OK);
           Exit;
        end;
      for i := 1 to Length(path) do
        if path[i] > #122 then
          begin
            MsgBox(ExpandConstant('{cm:Cyrillic}'), mbError, MB_OK);
            Exit;
          end;
    end;
  Result := True;
end;

[MrLOLs]

Соединил два предложенные варианта:

Код

Код:

Function cm(Message: String): String; Begin Result:= ExpandConstant('{cm:'+ Message +'}') End;
function NextButtonClick(CurPageID: Integer): Boolean;
var
	i: integer;
	path,s: string;
	One,Two: boolean;
Begin
Result:=True;
 if CurPageID = wpSelectDir then
	begin
	path:= Uppercase(WizardForm.DirEdit.Text);

    for i := 1 to Length(path) do if path[i] > #122 then
    begin One:=True;S:=cm('Cyrillic'); end;

    if (Pos(Uppercase(ExpandConstant('{pf}')), path) > 0) or (Pos(Uppercase(ExpandConstant('{win}')), path) > 0) then
    begin Two:=True;S:=cm('SysDirSelect'); end;

if One or Two then
begin
MsgBox(S, mbError, mb_Ok); Result:=False; Exit;
end;

	end;
End;

Если не подключать ф-ю Function cm в этом варианте, то CustomMessages не сработает

[ILIA_1992]

помогите разобраться с прогой regshot
Дело в том,что мне нужен реестр игры властелин колец,хоть и игра запускается с русским текстом и звуком во время игры но во время показа роликов звука нет.
Поэтому нужен реестр
Помогите

[Rikill]

Neutron, изменить сетапник нереально (разве что иконку), так что смысла в проверке сумм нету.

[R.i.m.s.k.y.]

Дело в том,что мне нужен реестр игры властелин колец,хоть и игра запускается с русским текстом и звуком во время игры но во время показа роликов звука нет. Поэтому нужен реестр »

вывод в стиле "таракан без ног не слышит"
звуковые файлы могут распаковываться не только в {app}, но и в {appdata}, моидокументы

[ILIA_1992]

может нужно было поставить [ht=http://img.ii4.ru/images/2011/07/14/127569_Bezemyanney.jpg[/ht] галочку возле rus

У меня после добавления реестра игра стала на аглийском и звук в роликах появился но на английском.ВЧём может быть проблема???

[ILIA_1992]

Neutron, я немного не понял,в моих документах ничего кроме сохранённого профиля и конфигурации грфики нет