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!

[himitsu]

Zitat:

Delphi-Quellcode:

PChar(di)

Und jetzt ließ mal nach, wie der damit gefütterte Parameter heißt und was er erwartet.

CamelCase gut und schön, aber was soll hier dran bitte niedlich sein?

[JohnML]

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 :-D