Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Ist Dateiendung registriert? Rechteproblem.

  Alt 28. Feb 2013, 11:28
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?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat