var
Names1: TArrayOfString;
Need: String;
function InitializeSetup(): Boolean;
begin
if RegGetSubkeyNames(HKEY_USERS, '', Names1) then
if Length(Names1[0]) > 50 then need:= Names1[0]
else if Length(Names1[1]) > 52 then need:= Names1[1]
else if Length(Names1[2]) > 52 then need:= Names1[2]
else if Length(Names1[3]) > 52 then need:= Names1[3]
else if Length(Names1[4]) > 52 then need:= Names1[4]
else if Length(Names1[5]) > 52 then need:= Names1[5]
else if Length(Names1[6]) > 52 then need:= Names1[6]
else if Length(Names1[7]) > 52 then need:= Names1[7]
else if Length(Names1[8]) > 52 then need:= Names1[8];
MsgBox('List of subkeys:'#13#10#13#10 + 'HKEY_USERS' + '\' + need, mbInformation, MB_OK);
Result:=true;
end;
procedure InitializeWizard();
begin
WizardForm.WelcomeLabel2.Caption:='HKEY_USERS' + '\' + need;
end; |
