The R Project SVN R

Rev

Rev 68631 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68631 Rev 81360
Line 21... Line 21...
21 
procedure InitializeWizard;
 21 
procedure InitializeWizard;
22 
var
 22 
var
23 
  option : String;
 23 
  option : String;
24 
  index : Integer;
 24 
  index : Integer;
25 
begin
 25 
begin
- 
 
 26 
  WizardForm.DiskSpaceLabel.Visible := False;
26 
  NoAdminPage := CreateOutputMsgPage(wpWelcome, SetupMessage(msgInformationTitle),
27 
  NoAdminPage := CreateOutputMsgPage(wpWelcome, SetupMessage(msgInformationTitle),
27 
    CustomMessage('adminprivilegesrequired'), CustomMessage('adminexplanation'));
 28 
    CustomMessage('adminprivilegesrequired'), CustomMessage('adminexplanation'));
28
29
29 
  SelectOptionsPage := CreateInputOptionPage(wpSelectComponents,
 30 
  SelectOptionsPage := CreateInputOptionPage(wpSelectComponents,
30 
    CustomMessage('startupt'), CustomMessage('startupq'),
 31 
    CustomMessage('startupt'), CustomMessage('startupq'),
Line 158... Line 159...
158 
begin
 159 
begin
159 
  Result := ExpandConstant('{pf}');
 160 
  Result := ExpandConstant('{pf}');
160 
  if (not IsAdmin) then
161 
  if (not IsAdmin) then
161 
  begin
 162 
  begin
162 
    try
 163 
    try
163 
      Result := ExpandConstant('{userdocs}');
 164 
      Result := ExpandConstant('{userpf}');
164 
    except
 165 
    except
165 
    // Do nothing, user doesn't have a My Documents folder
 166 
    // Change nothing.
166 
    end;
 167 
    end;
167 
  end;
 168 
  end;
168 
end;
 169 
end;