InstallExt installiert Dateierweiterung erst nach Neustart

**Nils_13**

Hi,

wieso installiert folgender Code eine Dateiendung nicht sofort, sondern erst nach einem Neustart ? Auch Strg+F5 im Explorer hat nichts gebracht.

zusammenfalten · markieren

Delphi-Quellcode:

			function InstallExt(Extension, ExtDescription, FileDescription, OpenWith, ParamString, IconPfad: string; IconIndex: Integer = 0): Boolean;

var Reg: TRegistry;

begin

  Result := False;

  if Extension <> '' then

  begin

    if Extension[1] <> '.' then

      Extension := '.' + Extension;

    Reg := TRegistry.Create;

    try

      Reg.RootKey := HKEY_CLASSES_ROOT;

      if Reg.OpenKey(Extension, True) then

      begin

        Reg.WriteString('', ExtDescription);

        if Reg.OpenKey('\' + ExtDescription, True) then

        begin

          Reg.WriteString('', FileDescription);

          if Reg.OpenKey('DefaultIcon', True) then

          begin

            Reg.WriteString('', Format('%s,%d', [IconPfad, IconIndex]));

            if Reg.OpenKey('\' + ExtDescription + '\Shell\Open\Command', True) then

            begin

              Reg.WriteString('', Format('"%s" "%s"', [OpenWith, ParamString]));

              Result:=True;

            end;

          end;

        end;

      end;

    finally

      Reg.Free;

    end;

  end;

end;

// wie es hiermit steht weiß ich gerade nicht, aber ich poste ihn mal mit

function UnInstallExt(Extension, ExtDescription: String): Boolean;

var Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  try

    try

      with Reg do

      begin

        RootKey := HKEY_CLASSES_ROOT;

        DeleteKey(Extension);

        DeleteKey('\' + ExtDescription);

        Result := True;

      end;

      if Reg.OpenKey('DefaultIcon', True) then

      begin

        Reg.DeleteKey('DefaultIcon');

        Result := True;

      end;

    except

      Result := False;

    end;

  finally

    Reg.Free;

  end;

end;

Ein Aufrufbeispiel:
InstallExt('.asd', 'asd irgendetwas', 'asd irgendetwas', 'asd.exe', '"%1"', 'asd.ico' , 0);

**mirage228**

Hi,

Nach dem Setzen der Dateierweiterungen ruf einfach dieses hier auf

markieren

Delphi-Quellcode:

			// uses ShlObj oder ShellAPI musst mal schauen

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

Das sollte klappen.

mfG
mirage228

**Nils_13**

Danke, den hätte ich später auch noch gebraucht. In dem Aufruf ist irgendwo noch ein Fehler drinnen, da es weiterhin nicht klappt. Ich will es anhand eines "echten" Beispiels erläutern:

Angenommen, man möchte ASX auf ein Programm zuweisen (meins

).
Dann benötige ich einen Code, wie diesen, damit mein Programm auch noch andere Formate verwalten kann:

markieren

Delphi-Quellcode:

			ExtDes  := LowerCase(Ext); // Ext = .asx ; Diese Zuweisung macht wenig Sinn, aber es ist auch nur zu Testzwecken

FileDes := ExtDes; // auch sinnlos...

Prg     := ExtractFilePath(Application.ExeName) + 'DarkPlayerII.exe';

Nun zur eigentlichen Registration:

markieren

Delphi-Quellcode:

			if InstallExt(Ext, ExtDes, FileDes, Prg, '"%1"', Ico , 0) then // Ico = Pfad+Dateiname

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil)

else

  MsgBox(...);

In der Registry steht daraufhin im Schlüssel .asx der Eintrag DefaultIcon, welcher den Pfad zum Icon enthält.
Unter .asx\Shell\Open\Command steht nun im Schlüssel Standard:

Zitat:

"E:\Eigene Projekte\DarkPlayer New\Tools\FileManager\DarkPlayerII.exe" ""%1""

In dem eben genannten Schlüssel muss irgendein Fehler liegen. Sind dort vlt. zwei Anführungszeichen bei %1 zu viel ?

**mirage228**

Also ich habe das bisher immer so gemacht,
dass in dem Schlüssel .asx in diesem Fall unter dem Standardwert der Verweis zu einem weiteren Schlüssel eingetragen, also meinetwegen der Wert ASXFile.
Im HKEY_CLASSES_ROOT wird nun ein Schlüssel ASXFile angelegt, in welchem dann nun der shell\open\command-Schlüssel und der DefaultIcon-Schlüssel mit den entsprechenden Werten angelegt werden.
Ich weiß nicht, ob das geht wenn Du das alles direkt in den .asx-Schlüssel packst...

mfG
mirage228

**himitsu**

inoffiziell geht es, aber ich würde auch zu mirage228's variante tendieren, da es eigentlich alle so machen.

**Christian Seehase**

Moin Nils,

So rufst Du die Registrierung auf:

if InstallExt(Ext, ExtDes, FileDes, Prg, '"%1"', Ico , 0) then und das macht die Funktion damit:
Reg.WriteString('', Format('"%s" "%s"', [OpenWith, ParamString])); => warum übergibst Du also %1 in ""?

**himitsu**

Zitat von Christian Seehase:

So rufst Du die Registrierung auf:
...
und das macht die Funktion damit:
...
=> warum übergibst Du also %1 in ""?

Mir fällt grad ein ... dieses, oder zumindestens ein ähnliches Problem gab's schon mal.

Die "richtige" Lösung wäre da eigentlich

markieren

Code:

			Reg.WriteString('', Format('"%s" [color=#ff0000]%s[/color]', [OpenWith, ParamString]));
		

und den Aufruf so lassen.

Denn was ist, wenn man mal mehrere Parameter haben möchte?

**Nils_13**

Es klappt immer noch nicht. In der Registry wird nun .ASX playlist erstellt. Dort steht dann DefaultIcon für das Icon und in .ASX playlist\Shell\Open\Command steht

Zitat:

"E:\Eigene Projekte\DarkPlayer New\Tools\FileManager\DarkPlayerII.exe" "%1"

Es wundert mich, dass es immer noch nicht mit meinem Programm geöffnet wird, da in .asx in Standard .ASX playlist steht.

Woran könnte das liegen ?

**himitsu**

es wird also stattdessen mit dem dafür eingerichteten Standardplayer geöffnet?

ich sag es mal so .. höre auf uns und ändere deinen code entsprechend.

du kannst zwar den ganzen "shell"-Zweig direkt in die Erweiterung ".asx" eintragen, jedoch wird dieser Zweig als ltztes abgefragt.
Vorher wird in "\ASXFile\shell\..." (bei Mediaplayer) reingesehn und wenn da was steht, dann wird dieses ausgeführt.

[add]
was ich mich aber gerade frage.
gab es nicht auch eine WinAPI für's "Erweiterung registrieren"?
(wo man dann auf die ganze Ordnerstucktug nicht achten mußte, da es intern verwaltet wird)

**Nils_13**

Wo finde ich diesen Eintrag ? Im Mediaplayerschlüssel ist nichts, liegt vlt. daran, dass er nicht mehr auf der Platte ist. Von der WinAPI-Variante habe ich noch nichts gehört und nichts im Forum gefunden.

InstallExt installiert Dateierweiterung erst nach Neustart

InstallExt installiert Dateierweiterung erst nach Neustart

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Re: InstallExt installiert Dateierweiterung erst nach Neusta

Forumregeln

himitsu Online Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.164 Beiträge Delphi 12 Athens	#5 Re: InstallExt installiert Dateierweiterung erst nach Neusta 11. Apr 2007, 10:17 inoffiziell geht es, aber ich würde auch zu mirage228's variante tendieren, da es eigentlich alle so machen. Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

Nils_13 Registriert seit: 15. Nov 2004 2.647 Beiträge	#10 Re: InstallExt installiert Dateierweiterung erst nach Neusta 12. Apr 2007, 14:15 Wo finde ich diesen Eintrag ? Im Mediaplayerschlüssel ist nichts, liegt vlt. daran, dass er nicht mehr auf der Platte ist. Von der WinAPI-Variante habe ich noch nichts gehört und nichts im Forum gefunden.
	Zitat