Gibt es die funktion StrToHKEY ?

[Pseudemys Nelsoni]

moin

da ich das rad nicht neu erfinden möchte frage ich ob es diese funktion (wie auch immer der name sein koennte) bereits gibt?
ansonsten hab ich mir das so gedacht:

Delphi-Quellcode:

function StrToHKEY(StrKey: string): HKEY;
begin
  if StrKey = 'HKEY_CLASSES_ROOT' then result := HKEY_CLASSES_ROOT;
  if StrKey = 'HKEY_CURRENT_USER' then result := HKEY_CURRENT_USER;
  if StrKey = 'HKEY_LOCAL_MACHINE' then result := HKEY_LOCAL_MACHINE;
  if StrKey = 'HKEY_USERS' then result := HKEY_USERS;
  if StrKey = 'HKEY_CURRENT_CONFIG' then result := HKEY_CURRENT_CONFIG;
end;