Registry bei Windows 7 32bit mit Delphi 2009 auslesen

[Luckie]

Zitat von SirThornberry:

Wäre es hier nicht sicherer die dafür vorgesehene Api-funktion zu verwenden?

Wenn es die gibt sicher. Welche wäre denn das?

[DeddyH]

So geht es bei mir unter Vista 32 (kein Admin-Account):

Delphi-Quellcode:

procedure ListComPorts(ResultList: TStrings);
var
  reg: TRegistry;
  i: integer;
  TempResult: TStringlist;
begin
  TempResult := TStringlist.Create;
  try
    reg := TRegistry.Create(KEY_READ);
    try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      if reg.OpenKey('hardware\devicemap\serialcomm', False) then
        begin
          reg.GetValueNames(TempResult);
          for i := 0 to TempResult.Count - 1 do
            ResultList.Add(reg.Readstring(TempResult.strings[i]));
          reg.CloseKey;
        end;
    finally
      reg.Free;
    end;
  finally
    TempResult.Free;
  end;
end;

[edit] BTW: Interessanter Artikel dazu: http://www.codeproject.com/KB/system...enum_fifo.aspx, aber ganz ohne die Registry kommt man wohl auch dort nicht aus, sofern meine bescheidenen C++-Kenntnisse ausreichen. [/edit]

[hathor]

Verständnisfrage:

Wozu reg.CloseKey; wenn reg.OpenKey nicht funktioniert ?

[DeddyH]

Wen meinst Du?

[hathor]

Alle...

Wenn reg.CloseKey; nach einem missglückten reg.OpenKey aufgerufen wird - was passiert dann?
Nichts???

[DeddyH]

Ein Blick in die Hilfe bringt Erstaunliches zu Tage:

Zitat:

Ein Aufruf von CloseKey hat keinen Effekt, wenn aktuell kein Schlüssel geöffnet ist.

Abgesehen davon rufen Luckie und ich nur dann CloseKey auf, wenn OpenKey auch erfolgreich war

[himitsu]

Wer will, kann auch noch TRegisty.OpenKeyReadOnly verwenden.

[Alex.P]

Hallo,

danke für die zahlreichen Antworten. Ich werde das gleich mal ausprobieren.
Version 1.0 ist leider schon rum ums Eck. Bin jetzt bei 5.0

[Alex.P]

Create mit KEY_READ ausführen, dann klapps auch wieder mit Windows 7

Code:

TRegistry.Create(KEY_READ);

[DeddyH]

Siehe #3 und #7.