The R Project SVN R

Rev

Rev 81360 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 81360 Rev 83528
Line 6... Line 6...
6 
  SelectOptionsPage: TInputOptionWizardPage;
 6 
  SelectOptionsPage: TInputOptionWizardPage;
7 
  MDISDIPage: TInputOptionWizardPage;
 7 
  MDISDIPage: TInputOptionWizardPage;
8 
  HelpStylePage: TInputOptionWizardPage;
 8 
  HelpStylePage: TInputOptionWizardPage;
9 
  INIFilename: String;
 9 
  INIFilename: String;
10
10
11 
function IsAdmin: boolean;
 11 
function RIsAdmin: boolean;
12 
begin
 12 
begin
13 
  Result := IsAdminLoggedOn or IsPowerUserLoggedOn;
 13 
  Result := IsAdmin or IsPowerUserLoggedOn;
14 
end;
 14 
end;
15 
 
 15 
 
16 
function NonAdmin: boolean;
 16 
function NonAdmin: boolean;
17 
begin
 17 
begin
18 
  Result := not IsAdmin;
 18 
  Result := not RIsAdmin;
19 
end;
 19 
end;
20 
 
 20 
 
21 
procedure InitializeWizard;
 21 
procedure InitializeWizard;
22 
var
 22 
var
23 
  option : String;
 23 
  option : String;
Line 147... Line 147...
147 
    SaveStringsToFile(filename, lines, False);
 147 
    SaveStringsToFile(filename, lines, False);
148 
end;
 148 
end;
149 
 
 149 
 
150 
function ShouldSkipPage(PageID: Integer): boolean;
 150 
function ShouldSkipPage(PageID: Integer): boolean;
151 
begin
 151 
begin
152 
  if PageID = NoAdminPage.ID then Result := IsAdmin
 152 
  if PageID = NoAdminPage.ID then Result := RIsAdmin
153 
  else if (PageID = MDISDIPage.ID) or (PageID = HelpStylePage.ID) then
153 
  else if (PageID = MDISDIPage.ID) or (PageID = HelpStylePage.ID) then
154 
    Result := SelectOptionsPage.SelectedValueIndex = 1
 154 
    Result := SelectOptionsPage.SelectedValueIndex = 1
155 
  else Result := false;
 155 
  else Result := false;
156 
end;
 156 
end;
157 
 
 157 
 
158 
function UserPF(Param:String): String;
 158 
function UserPF(Param:String): String;
159 
begin
 159 
begin
160 
  Result := ExpandConstant('{pf}');
 160 
  Result := ExpandConstant('{pf}');
161 
  if (not IsAdmin) then
161 
  if (not RIsAdmin) then
162 
  begin
 162 
  begin
163 
    try
 163 
    try
164 
      Result := ExpandConstant('{userpf}');
 164 
      Result := ExpandConstant('{userpf}');
165 
    except
 165 
    except
166 
    // Change nothing.
 166 
    // Change nothing.