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;

[SirThornberry]

ich würde noch nen uppercase auf "StrKey" durchführen damit es egal ist ob der user 'HKEY_CLASSES_ROOT' groß oder klein schreibt

[Pseudemys Nelsoni]

Stimmt, ganz vergessen, danke ^^

[Meflin]

nur zur info: sowas gibts wohl nicht

[mirage228]

Zitat von Pseudemys Nelsoni:

Stimmt, ganz vergessen, danke ^^

Hi,

ist evtl. nicht sooo wichtig, aber ich würde den StringParameter als CONST deklarieren, also

function StrToHKEY(const StrKey: string): HKEY; sonst fügt Delphi noch zusätzlichen Code für die Referenzzählung des Strings ein und das macht die funktion langsamer.

mfG
mirage228

[Pseudemys Nelsoni]

danke, mach ich 8)

[toms]

Meine Funktionen sehen so aus:

Delphi-Quellcode:

const
  HKEYNames: array[0..6] of string =
    ('HKEY_CLASSES_ROOT', 'HKEY_CURRENT_USER', 'HKEY_LOCAL_MACHINE', 'HKEY_USERS',
    'HKEY_PERFORMANCE_DATA', 'HKEY_CURRENT_CONFIG', 'HKEY_DYN_DATA');

function HKEYToStr(const Key: HKEY): string;
begin
  if (key < $80000000) or (key > $80000006) then
    Result := '' 
  else
    Result := HKEYNames[key - $80000000];
end;

function StrToHKEY(const KEY: string): HKEY;
var
  i: Byte;
begin
  Result := $0;
  for i := Low(HKEYNames) to High(HKEYNames) do
  begin
    if SameText(HKEYNames[i], KEY) then
      Result := $80000000 + i;
  end;
end;

[MathiasSimmack]

Ich würde sogar noch einen Schritt weiter gehen und "$80000000" durch "HKEY_CLASSES_ROOT" ersetzen, damit man auf Anhieb weiß, worauf sich die zugrunde liegenden Berechnungen des Schlüssels bzw. Strings stützen.

Und dann würde ich auch noch die Kurzformen wie HKCR, HKCU, HKLM, usw. integrieren.

[Pseudemys Nelsoni]

was ist denn $80000000 und $80000006?

ich würd nicht nur gern wissen wwas sie bedeuten, sondern auch wie man auf diese zahlen kommt..

[The-X]

Das sind die Werte zu den Konstanten (HKEY_*)

Delphi-Quellcode:

Const 
 HKEY_CLASSES_ROOT     = $80000000;
 HKEY_CURRENT_USER     = $80000001;
 HKEY_LOCAL_MACHINE    = $80000002;
 HKEY_USERS            = $80000003;
 HKEY_PERFORMANCE_DATA = $80000004;
 HKEY_CURRENT_CONFIG   = $80000005;
 HKEY_DYN_DATA         = $80000006;