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.

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:

Delphi-Quellcode:

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

[mirage228]

Hi,

Nach dem Setzen der Dateierweiterungen ruf einfach dieses hier auf

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 :P).
Dann benötige ich einen Code, wie diesen, damit mein Programm auch noch andere Formate verwalten kann:

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:

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:

Delphi-Quellcode:

if InstallExt(Ext, ExtDes, FileDes, Prg, '"%1"', Ico , 0) then

und das macht die Funktion damit:

Delphi-Quellcode:

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

=> warum übergibst Du also %1 in ""?

[himitsu]

Zitat:

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

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.