InstallExt installiert Dateierweiterung erst nach Neustart

[Nils_13]

Zitat:

Datei: "E:\Musik\irgendwas.ext"
Datei erfolgreich geöffnet

Diese Meldung erhalte ich mit Öffnen Mit und Doppelklick. Nun müsste der Fehler im Code meines zugewiesenen Programms liegen. Ich sehe keinen Fehler, der gleich einen Programmabsturz verursachen könnte, erst recht nicht, dass es nur im Programmverzeichniss funktioniert:

Delphi-Quellcode:

var ffile, FileType : String;
    ArrayIndex      : Integer;
begin
  if (ParamCount > 0) and (FileExists(ParamStr(1))) then
  begin
    ffile := ExtractFileName(ParamStr(1));

    FileType  := LowerCase(Trim(ExtractFileExt(ParamStr(1))));
    for ArrayIndex := 0 to 13 do
      if FileExt[ArrayIndex] = FileType then
        Break;
    if FileType <> '' then
    begin
      case ArrayIndex of
        // Audio/Video
        0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10:
        begin
          AddSingleFile(ffile);
        end;
        // Playlist
        11:
        begin
          LoadFiles(LoadM3U(ffile);
        end;
        12:
        begin
          LoadFiles(LoadASX(ffile);
        end;
        13:
        begin
          LoadFiles(LoadDPL(ffile, nil));
        end;
      end;
    end;
  end;