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.

zusammenfalten · markieren

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?

Ist Dateiendung registriert? Rechteproblem.

Ist Dateiendung registriert? Rechteproblem.

Forumregeln