Registry Lesen

[Dieter11]

Ja, habe ich

[Matze]

Zu einem "OpenKey" gehört immer auch ein "CloseKey". Der Aufruf fehlt bei dir beim Auslesen. Beim Schreiben hast du diesen Aufruf drinnen.

Das nur nebenbei bemerkt.

[himitsu]

Zitat von Matze:

Zu einem "OpenKey" gehört immer auch ein "CloseKey".

kann man ... muß man aber nicht

Delphi-Quellcode:

function TRegistry.OpenKey(const Key: string; Cancreate: boolean): Boolean;
begin
  Result := CheckResult(RegOpenKeyEx(GetBaseKey(Relative), PChar(S), 0,
    FAccess, TempKey));
  ...
  if Result then
  begin
    ...
    ChangeKey(TempKey, S);  <<<<<
  end;
end;

procedure TRegistry.ChangeKey(Value: HKey; const Path: string);
begin
  CloseKey; <<<<<
  ...;
end;

Und nochmal zum CloseKey vor Free.

Delphi-Quellcode:

destructor TRegistry.Destroy;
begin
  CloseKey;  <<<<<
  inherited;
end;

PS:

Delphi-Quellcode:

Finally
  Registry.CloseKey;
  Registry.Free;
End;

und das ist Syntaktisch auch falsch.
(auch wenn es hier vermutlich in CloseKey nie zu einer Exception kommt)
Vor dem Free ruft man nix mehr auf ... denn wenn da was passieren würde, dann wäre der Resourcenschutzblock Wirkungslos, da Free dann dennoch nicht aufgerufen würde.

[mkinzler]

Sauberer ist aber wenn man sich angewöhnt alles zu Schliessen was man geöffnet hat unabhängig, b es 100% notwendig ist oder nicht

[himitsu]

Es ist ja nicht falsch es dennoch zu machen

Delphi-Quellcode:

VAR
  Registry : TRegistry;
  WriteReportToRegistry : Boolean;

begin
  WriteReportToRegistry := True;
  Registry := TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;

  if Registry.KeyExists('\Software\SysIT\Nails4You') = False then
     Try
        Registry.CreateKey('\Software\SysIT\Nails4You');
     Except
        Registry.Free;
          WriteReportToRegistry := False;
          ///// 1 /////
          Registry.WriteString ('Mandant', DBEdit_MandantNr.Text);
        Exit;
     END;

  Try
    if Registry.OpenKey('\Software\SysIT\Nails4You', True) = True then
       Registry.WriteString ('Mandant', DBEdit_MandantNr.Text)
       ELSE
          Begin
              MessageDLG('Es konnte nicht in die Registry geschrieben werden', mtError, [mbOK], 0);
              ///// 2 /////
              Registry.WriteString (DBEdit_MandantNr.Text, DSN);
          End;

  Finally
      Registry.CloseKey;
      Registry.free;
  End;

1: Der Key konnte nicht erstellt werden, Registry wurde auch schon freigegeben ... wie soll da jetzt eigentlich das WriteString ausgeführt werden?

2: Der Key konnte nicht geöffnet werden ... wohin will da WriteString denn nun schreiben?

3: Man prüft/vergleicht nicht auf True oder False.

Delphi-Quellcode:

if not Registry.KeyExists(...) = then
if Registry.OpenKey(...) then

[mkinzler]

@Frank: Du hast aber 2 mal darauf hingewiesen, dass es nicht notwendig ist, damit hast du genau diesen Eindruck erweckt!
Man sollte sich angewöhnen es trotzdem zu machen.

[himitsu]

War auch mehr ans Mätzchen gerichtet ... bei ihm klang es so, als wenn es unbedingt nötig ist.

Wenn man sich das OpenKey als ChangeToKey vorstellt, dann wäre es wohl einleuchtender, warum man es nicht unbedingt wieder schließen muß.