Windows 10 , explorer starten, Datei ausgewählt anzeigen

[JohnML]

mit Delphi 5 und Windows XP geht dieser Code problemlos,
Windows 10 Home, Delphi 7 Pro dagegen:

Explorer starten , Datei auswählen:

"di" ist der Startparameter, Datei mit Pfad!

Err := ShellExeCute(Application.handle, nil, PChar('Explorer.exe'),
PChar('/n,/e,' + ExtractFilePath(di) + ',/select,' + di), PChar(di), SW_Normal)

Unter Windows 10 wird nur noch der Ordner markiert, aber keine Datei mehr in diesem Ordner.

err = 42 -> 'unbekannter Fehler'

woran liegt das?

Danke für jeden Tipp!

p.s.
Die Schreikrämpfe bei Win 10 ( auf neuem PC vorinstalliert) haben sich gebessert, seit ich Classic-Shell verwende!