Wie Explorer Fenster öffnen und bestimmte Datei markieren

[Sprint]

Delphi-Quellcode:

procedure OpenFolderAndSelectFile(const FileName: String);
begin

  if FileExists(FileName) then
    ShellExecute(
      GetDesktopWindow,
      'open',
      'Explorer',
      PChar('/e, /select, ' + FileName),
      nil, SW_SHOWNORMAL);

end;

Auszug aus der Datei TIPS.TXT (Microsoft Windows 98SE):

Zitat:

Schalter für den Windows-Explorer
---------------------------------

Schalter für den Windows-Explorer sind nützlich beim Erstellen von
Ordnern, die als Stammverzeichnis dienen sollen:

Explorer [/e,][/root,<objekt>,] [[<ordner>]| [/select,
<unterobjekt>]]

/e Explorer-Ansicht verwenden (Ansicht "Alle Ordner" in
der Explorerleiste).
Standardeinstellung ist Ansicht "Keine" in der
Explorerleiste.

/root,<objekt> Geben Sie das Objekt im "normalen" Namespace an,
das als Stammverzeichnis (oberste Ebene) für den
Windows-Explorer dient. Standardeinstellung ist der
Ordner Desktop.

/select Der übergeordnete Ordner wird geöffnet, und das
angegebene Objekt wird ausgewählt.

<unterobjekt> Der Ordner oder die Datei, der bzw. die im Windows-
Explorer geöffnet wird. Wenn der Schalter /select
verwendet wird, ist das Unterobjekt hervorgehoben.
Andernfalls wird der Ordner oder die Datei im Explorer
geöffnet. Standardeinstellung ist root<objekt>.

Beispiele: Explorer /e, /root, \\Berichte
Öffnet ein Explorer-Fenster in \\Berichte.

Explorer /select, C:\Windows\Calc.exe
Öffnet einen Ordner in C:\Windows (oder aktiviert einen
Ordner, der gegenwärtig geöffnet ist) und wählt Calc.exe
aus.

Explorer /e, /root,
\Source\Intern\Design\Benutzer\Thomas\Archiv
Öffnet im angegebenen Archivordner einen Ordner. Dies
ist eine gute Methode, einen dedizierten Remote-
Archivordner für Dokumente zu erstellen. Dadurch können
Sie eine Verknüpfung zu den Ordnern
\\Source\Intern\Design\Benutzer\Thomas\Archiv in den
Ordner SendTo platzieren und so Dokumente rasch
übertragen.