Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Registry: KeyExists liefert immer false (https://www.delphipraxis.net/121891-registry-keyexists-liefert-immer-false.html)

Ajin 6. Okt 2008 16:25


Registry: KeyExists liefert immer false
 
Hallo DP !

Ich möchte auf einem Windows 2000 System die "Liste der zuletzt geöffneten Dateien" von MS Office 2000 (hier Excel) per Registry setzen.
Das geschieht in:

Schlüssel: HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Ex cel\Options
Wert1: DefFileMRU (Anzahl der angezeigten letzten Dateien, Wert von 0 bis 9 einstellbar)
Wert2: Options5 (Häckchen entfernen/setzen)

Davor möchte ich gern prüfen, ob der o.g. Schlüssel überhaupt existiert. Das ist mein Lösungsansatz:

Delphi-Quellcode:
procedure TFMain.SpeedButton_regClick(Sender: TObject);
var reg: TRegistry;
begin
 try
  reg:=TRegistry.Create(KEY_READ);
  if Reg.KeyExists('HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Options') then
  //mache dies, mache das
  else my_Message.MessageDlg('Registry Schlüssel: '+ #10#13 + #10#13 + 'bliblablubb' + #10#13 + #10#13 +
  'nicht gefunden!',mtInformation,mbOK, 0);
 finally
  reg.Free;
 end;
End;
Ich bekomme die Fehlermeldung, dass der Schlüssel angeblich nicht existert. Er existiert aber eindeutig und per
Delphi-Quellcode:
JumpToKey('HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Options');
komme ich auch sofort an die gewünschte stelle. Was ist denn an meiner if-Anweisung falsch?

Apollonius 6. Okt 2008 16:29

Re: Registry: KeyExists liefert immer false
 
HKEY_CURRENT_USER musst du als Rootkey setzen und aus dem Key-String entfernen.

Ajin 6. Okt 2008 16:58

Re: Registry: KeyExists liefert immer false
 
Thats it !

Vielen Dank!


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz