[CatalystARTs]

Привет! У меня есть качественный макет для инсталятора и нужно его сверстать, кто может взяться за дело?

[Fakt_37]

Доброе время суток, подскажите пожалуйста, сделал рекомпрессию прекомпом, в батнике написал Precomp041.exe - slow -c- "название файла", но распаковка потом не идёт, выдаёт ошибку запуска концольного приложения Precomp041, в чём проблема?

[alert30]

выдаёт ошибку запуска концольного приложения Precomp041 »

Если есть код ошибки, скиньте.

[Fakt_37]

свою проблему уже решил, теперь возникла другая, и самое интересное не знаю почему, через SrepInside жму файлы, в батнике пишу arc.exe a -ep1 -dses --dirs -s; -lc- -di -i2 -r -msrep:l256+lzma:a1:mfbt4:d200m:fb128:mc1000:lc8 data.arc packeddata\* (как обычно я делал) но теперь выдаёт ошибку ISDone.dll я устал голову ломать, помогите пожалуйста

[Gnom_aka_Lexander]

через SrepInside »

никак не вяжется с IsSrepextract. CLS-фильтры для того и служат, чтоб избавится от дополнительных этапов распаковки. ты-же пытаешься распаковать файл, которого не существует.

[Fakt_37]

точно точно я забыл разкоментировать, но после этого он выдаёт такую ошибку

[Gnom_aka_Lexander]

но после этого он выдаёт такую ошибку »

либо версии srep при упаковке и распаковке не совпадают, либо не указан Arc.ini для распаковки, который использовался при упаковке. но скорее первое, хотя возможно более знающие товарищи подскажут еще варианты причин этой проблемы.

[Alloc]

Приветствую! Уважаемые, подскажите в чем может быть ошибка... Вообщем ошибка "Runtime Error - Out of Range" возникает при подключении модуля "HWREQ", но далеко не у всех.. не знаю по какой причине.. примерно у 5 из 100 подобная ошибка появляется... код я не изменял у меня на компьютере все хорошо запускается а другие жалуются.. я ради интереса поставил чистый WIn7 на виртуалку и запустил.. такая же проблема.. подскажите люди добрые кто использовал данный модуль, в чем косяк тут?

Заранее спасибо

[qwea234]

Имею данный код:

Код:

procedure DirOnClick(Sender: TObject);
var
  res: Boolean;
  UserSelectDir: String;
begin
  UserSelectDir:= WizardForm.DirEdit.Text;
  res:= BrowseForFolder(SetupMessage(msgWizardSelectDir), UserSelectDir, True);
  if res then
    begin
      WizardForm.DirEdit.Text:= UserSelectDir;
    end;
end;

помогите пожалуйста его дописать, если пользователь выбрал папку установки

E:\Games\Bord\system
его автоматом скидывало на верхний уровень
E:\Games\Bord

даже если пользователь укажет вообще любой путь где имеется папка system, кидало на уровень выше, к примеру еще один вариант

С:\User\Games\Bord\system
- кидало тоже на уровень выше:
С:\User\Games\Bord


помогите с этим пожалуйста.

[El Sanchez]

даже если пользователь укажет вообще любой путь где имеется папка system, кидало на уровень выше »

qwea234, немного не в ту тему вас перенаправили, ну да ладно:

Код:

[Setup]
AppendDefaultDirName=no

[Code]
procedure DirOnClick(Sender: TObject);
var
    iPos: Integer;
    UserSelectDir: String;
begin
    if BrowseForFolder(SetupMessage(msgWizardSelectDir), UserSelectDir, True) then
    begin
        iPos := Pos('\system\', Lowercase(AddBackslash(UserSelectDir)));
        if iPos > 0 then WizardForm.DirEdit.Text := Copy(UserSelectDir, 1, iPos-1) else WizardForm.DirEdit.Text := UserSelectDir;
    end;
end;

procedure InitializeWizard();
begin
    WizardForm.DirBrowseButton.OnClick := @DirOnClick;
end;

Вообщем ошибка "Runtime Error - Out of Range" возникает при подключении модуля "HWREQ" »

Alloc, возникает где угодно, где используются массивы и где идет обращение к несуществующему элементу массива.