[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, возникает где угодно, где используются массивы и где идет обращение к несуществующему элементу массива.