Windows Registry

[hbr]

Hallo Forum,
ich stoße beim auslesen der Registrie Schlüssel auf massive Probleme.

Schlüsse vom Type REG_DWORD (Hexadezimal) lassen sich nicht auslesen.

Beim der Nachfrage mit: Reg.GetDataType('SystemType') in HKEY_LOCAL_MACHINE ist bei den Erwähnten Schlüsseltypen (REG_DWORD (Hexadezimal)) das Ergebnis "rdUnknown".

Wie kann man solche Schlüssel nennoch lesen?

mfg
hbr

[hbr]

Hallo, hat hier niemand eine Idee?

Also beim Versuch den Schlüssel 'InstallDate' in HKLM = (Installationsdatum von Windows) auszulesen kommt immer eine Fehlermeldung.
Trotz vorhandenem Schlüssel, er ist da, will aber nicht ausgelesen werden.

An den Rechten licht es auch nicht.

Weiß niemand eine Lösung?

Gruß
hbr

[Socke]

Hallo, hat hier niemand eine Idee?

Vielleicht ist deine Idee auch zu kurz, als das jemand darauf aufbauen könnte. Ein wenig mehr Quelltext wäre wohl schon sinnvoll. Insbesondere wäre wohl ein vollständiger Registry-Pfad sinnvoll um dein Problem nachvollziehen zu können.

[hbr]

Ok, kein Problem,
habe aber alles erwähnt und versucht mit den Verschiedensten Type auszulesen.
Immer das gleiche.
dennoch hier der Code:

Code: Alles auswählen

Function Reg_Lesen(HKEY,Schluessel,R_Name :String):String;
Var Reg : TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ); //(KEY_READ OR $0100);
   If HKEY = 'USER' Then reg.RootKey := HKEY_CURRENT_USER;
   If HKEY ='MACHINE' Then reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey(Schluessel, false) then
      begin
        if Reg.ValueExists(R_Name) then
      begin
        Reg_Lesen := Reg.ReadString(R_Name);
        Reg.CloseKey;
       end;
      End Else Reg_Lesen := '';
    reg.free;
end;  

Hier der Inhalt von Schluessel: '\Software\Microsoft\Windows NT\CurrentVersion\'
R_Name ='InstallDate'
Ersucht mit DWord und ReadBinaryData
immer das gleiche, sobat der Reg-Schlüssel DWord HEXADEZIMAL hat gehts nicht.

gruß

[gsa]

Beim der Nachfrage mit: Reg.GetDataType('SystemType') in HKEY_LOCAL_MACHINE ist bei den Erwähnten Schlüsseltypen (REG_DWORD (Hexadezimal)) das Ergebnis "rdUnknown".

Unter dem Schlüssel 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion' gibt es keinen Wert 'SystemType'. Die Funktion Reg.DataType könnte also entweder eine Exception werfen oder "rdUnknown" zurückgeben, was es sie auch tut.

Reg.GetDatayType(R_Name) gibt "rdInteger" zurück, was bedeutet, dass du den Wert mit Reg.ReadInteger(R_Name) in eine Integer-Variable einlesen kannst. Da deine Funktion einen String zurückgibt, musst du die Integer-Variable z.B. mit IntToStr in einen solchen umwandeln.

Gruß Gerd

[hbr]

Oh Vielen Dank GSA,

Habe jetzt meie Funktion mit 'if GetDataType(R_Name) = rdInteger then'... erweiter.
Und es Funktioniert! Vielen Dank.

Seltsam finde ich nur, dass ich das mit Integer vorher auch schon versucht hatte.


Gruß
hbr