Thema: Delphi Variant Problem...

Einzelnen Beitrag anzeigen

Benutzerbild von Sourcemaker
Sourcemaker

Registriert seit: 3. Sep 2003
Ort: Westoverledingen
264 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Variant Problem...

  Alt 11. Jan 2005, 10:45
Oder so:

Delphi-Quellcode:
function StrToKey(var AString: Variant): boolean;
begin
  result := false;
  if AString = 'HKCUthen
  begin
    AString := HKEY_CURRENT_USER;
    result := true;
  end
  else if AString = 'HKLMthen
  begin
    AString := HKEY_LOCAL_MACHINE;
    result := true;
  end
  else if AString = 'HKUthen
  begin
    AString := HKEY_USERS;
    result := true;
  end
  else if AString = 'HKCCthen
  begin
    AString := HKEY_CURRENT_CONFIG;
    result := true;
  end
  else if AString = 'HKCRthen
  begin
    AString := HKEY_CLASSES_ROOT;
    result := true;
  end;
end;
Grüße

Frank
Frank
  Mit Zitat antworten Zitat