ShellExecute öffnet nicht alle Dateien?

[Hedge]

Ich möchte mit ShellExecute beliebige Dateien mit ihrem Standardprogramm öffnen.
Das funktioniert leider nicht bei allen.
Musikdateien und Bilder wollen zB. nicht.

So benutze ich ShellExecute:

Delphi-Quellcode:

//Parameter auswerten
if (ParamStr(1)<>'') then
  ShellExecute(Application.Handle,
               'open',
               PChar(ParamStr(1)),
               nil,
               nil,
               1)