Registry: 2 OpenKeys, nur der 1. funktioniert, warum?

[DeddyH]

Wie ist es so?

Delphi-Quellcode:

function GetSAVParentServer : String;
var
  av_name, av_parentserver, sResult : String;
  reg : TRegistry;
begin
  av_name := '';
  av_parentserver := '';
  Result := '';
  
  reg := TRegistry.Create(KEY_READ);
  try
    reg.Rootkey := HKEY_LOCAL_MACHINE;
    
    // SEP
    if reg.OpenKey('SOFTWARE\Symantec\Symantec Endpoint Protection\SMC', False) then
     try
       if reg.ValueExists('ProductVersion') then
         if reg.ReadString('ProductVersion') <> '' then
           av_name := 'SEP';
     finally
       reg.CloseKey;
     end;
    
    // SEP : Parent Server
    if reg.OpenKey('SOFTWARE\Symantec\Symantec Endpoint Protection\SMC\SYLINK\SyLink', False) then   
     try
       av_parentserver := reg.ReadString('LastServerIP');
     finally
       reg.CloseKey;
     end;
    
    // SAV
    if reg.OpenKey('SOFTWARE\Symantec\InstalledApps', False) and (av_name = '') then
     try
       if reg.KeyExists('SAVCE') then
         if reg.ReadString('SAVCE') <> '' then
           av_name := 'SAV';
     finally
       reg.CloseKey;
     end; 
    
    // SAV : Parent Server
    if reg.OpenKey('SOFTWARE\Intel\LANDesk\VirusProtect6\CurrentVersion', False) then
     try
       av_parentserver := reg.ReadString('Parent');
     finally
       reg.CloseKey;
     end;
     
  finally
    reg.Free;
  end;
  
  sResult := '';
  if av_name <> '' then
    sResult := av_name;
  
  if sResult <> '' then
  begin
    if av_parentserver <> '' then
      sResult := sResult + ' - ' + av_parentserver;
  end
  else
    sResult := av_parentserver;
  
  Result := sResult;
end;