Zitat:
"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.
korrekter Aufrufe ist:
Err := ShellExeCute(Application.handle, nil, PChar('Explorer.exe'),
PChar('/n,/e,/select,' + di), PChar(di), SW_Normal)
.. was ich nicht untersucht habe: warum klappt der FALSCHE
API Aufruf bei Win XP ... ist jetzt aber auch egal