Как запретить установку в папку с русскими буквами?
[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;
На всякий случай оставлю "Inno Setup Archive Manager" - архивация 7z.dll
Прошу любить и жаловать, Ваш Добро пожаловать в наш Чат в Telegram
Последний раз редактировалось ErikPshat; 07.09.2018 в 01:05.