Ist Dateiendung registriert? Rechteproblem.

[Neutral General]

Hallo,

Ich habe mir eine function gebaut mit der ich prüfe ob eine bestimmte Dateiendung mit einem Programm verknüpft ist. Es geht nicht darum das Programm selbst rauszufinden sondern nur ob die Datei generell geöffnet werden kann.

Delphi-Quellcode:

function isFileExtensionRegistered(AFileExt: String): Boolean;
var reg: TRegistry;
begin
  if AFileExt[1] <> '.' then
    AFileExt := '.' + AFileExt;

  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    Result := reg.OpenKey(AFileExt, false);
    if Result then
      reg.CloseKey;
  finally
    reg.Free;
  end;
end;

Das Problem ist, dass diese Funktion scheinbar Adminrechte benötigt. Gibt es da eine Art dies zu erreichen ohne dass mein Programm sofort Adminrechte benötigt?

[Dalai]

OpenKey öffnet einen Registry-Schlüssel immer mit Schreibzugriff, sofern man das nicht gezielt verhindert. Mögliche Lösungen:

• TRegistry.OpenKeyReadOnly statt TRegistry.OpenKey verwenden
• TRegistry.Access vor dem Aufruf von OpenKey passend setzen, wobei ich jetzt grad nicht weiß, ob die Methode OpenKey zu denjenigen gehört, die dieses Property ignorieren

MfG Dalai

[lbccaleb]

Funktioniert es damit besser??

http://docwiki.embarcadero.com/Libra...penKeyReadOnly

[Neutral General]

Danke! :-)
Das mit Reg.Access hat funktioniert!
OpenKeyReadOnly werde ich auch gleich mal ausprobieren!

[DeddyH]

Delphi-Quellcode:

reg := TRegistry.Create(KEY_READ);

sollte schon genügen.