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;