"Öffnen mit" und Dateiproblem

[Nils_13]

Hi,

mein Programm soll Dateien auch aus dem Explorer öffnen können. Deshalb habe ich einfach ParamStr(1) mit Absicherungen usw. eingebunden. Wenn ich eine Datei über "Öffnen mit" (Explorer) öffne, dann wird ein Application.Terminate sofort nach dem Start der Anwendung aufgerufen. Dies ist ein eindeutiger Hinweis darauf, dass er aus irgendeinem Grund keinen Zugriff auf den Skinordner hat, OBWOHL der Pfad stimmt (habe es überprüft). Woran könnte das liegen ? Ich habe alles auf Terminates (und Close) geprüft und konnte nichts finden.

Delphi-Quellcode:

var paramfiles : Array of String;
    ...
begin
  if (ParamCount > 0) and (FileExists(ParamStr(1))) then
  begin
    SetLength(paramfiles, ParamCount);
    for i := 0 to ParamCount - 1 do
      paramfiles[i] := ParamStr(i);

    FileType  := LowerCase(Trim(ExtractFileExt(ParamStr(1))));
    for ArrayIndex := 0 to 10 do
      if FileExt[ArrayIndex] = FileType then
        Break;
    if FileType <> '' then
    begin
      case ArrayIndex of
        // Audio oder Video
        0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11:
        begin
          AddFiles(paramfiles);
        end;
        // Playlist 
      end;
    end;
  end;
end;