[Serega]

BlackSelf,

Пример

Код:

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

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

[_Code]
var
  i: Integer;
  path: string;

function CheckWay(s: string):Boolean;
begin
  i:= 1;
  Result:= False;
  repeat
    if Pos(Chr(Ord('А')+i-1), s) > 0 then
    Result:= True;
    i:= i + 1;
  until (Result = True) or (i = 64);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result:= True;
  if CurPageID = wpSelectDir then begin
    path:= WizardForm.DirEdit.Text;
    if path <> '' then
    if CheckWay(path) = True then begin
      MsgBox('Выберете другую папку, чего-то она не такая... ой, так там же русские буквы... :) ', mbInformation, MB_OK);
      Result:= False;
    end;
  end;
end;