Ordner einer Datei öffnen

[BlueStarHH]

Statt 'open' (Dateien ausführen/öffnen) würde ich 'explore' (Ordner anzeigen) nehmen, so wie von Microsoft vorgesehen:

ShellExecute(Application.Handle, 'explore', PChar(ExtractFilePath(Speichern.FileName)), nil, nil, SW_SHOWNORMAL);