Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
Delphi 5 Professional
|
Re: Wie Explorer Fenster öffnen und bestimmte Datei markiere
14. Mär 2005, 21:51
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.
Ciao, Sprint.
"I don't know what I am doing, but I am sure I am having fun!"
|
|
Zitat
|