Variant Problem...

[Sourcemaker]

Oder so:

Delphi-Quellcode:

function StrToKey(var AString: Variant): boolean; 
begin 
  result := false; 
  if AString = 'HKCU' then 
  begin 
    AString := HKEY_CURRENT_USER; 
    result := true; 
  end
  else if AString = 'HKLM' then 
  begin 
    AString := HKEY_LOCAL_MACHINE; 
    result := true; 
  end
  else if AString = 'HKU' then 
  begin 
    AString := HKEY_USERS; 
    result := true; 
  end
  else if AString = 'HKCC' then 
  begin 
    AString := HKEY_CURRENT_CONFIG; 
    result := true; 
  end
  else if AString = 'HKCR' then 
  begin 
    AString := HKEY_CLASSES_ROOT; 
    result := true; 
  end; 
end;

Grüße

Frank