MihailM
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
на самом деле , что то типа этого
Код:
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
[xCodex]
function NextButtonClick(CurPageID: Integer): Boolean;
var
i,j: integer;
s,c: string;
begin
Result := True;
if CurPageID = wpWelcome then
begin
c := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
for i:=1 to length(ExpandConstant('{username}')) do
for j:=1 to length(c) do
begin
if ExpandConstant('{username}')[i] = c[j] then
begin
s := 'В пути установки присутствуют русские буквы, что недопустимо'#13#13'Пожалуйста, повторите ввод.'; // Изменить текст
MsgBox(s, mbError, mb_Ok);
Result := False ; //Здесь можно добавить принудительнй выход из инстала
exit; // Хотя возможно это уже и есть ..
end
else Result := True; // Эта и след. можно удалить ...
end;
end;
end;
|
или={username} или {userappdata}&{commonappdata} - здесь уже на выбор, что нужнее
А Дальше уже сами... |
Всего записей: 2498 | Зарегистр. 19-10-2003 | Отправлено: 22:52 27-12-2016 | Исправлено: MihailM, 23:08 07-03-2017 |
|
