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;