[Setup] AppName=MyApp AppVername=MyApp DefaultDirName={pf}\MyApp [Code] function IsAnsi(S: String): Boolean; var S1, S2: string; begin S1 := AnsiUppercase(S); S2 := Uppercase(S); if CompareStr(S1, S2) = 0 then begin S1 := Lowercase(S); S2 := AnsiLowercase(S); if CompareStr(S1, S2) = 0 then Result := True; end; end; function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; if CurPageID = wpSelectDir then if not(IsAnsi(WizardForm.DirEdit.Text)) then begin MsgBox( 'В пути установки присуствуют русские символы'#13#13'Пожалуйста, повторите ввод.', mbError, mb_Ok); Result := False; end; end;