Entwickler-Ecke :: Thema anzeigen

Heiko - So 24.07.05 18:37

Ich habe es jetzt so:

Delphi-Quelltext

1:
2:
3:
4:
5:

var h: hwnd;
begin
 h:=ShellExecute(Form1.Handle, 'explore', nil, nil, PChar(ExtractFileDir(Form1.SpeicherortEdit.Text)), SHOW_OPENWINDOW);
 sendmessage(h,WM_SETFOCUS,0,0); //dürfte sogar unnötig sein, da es automatisch den focus bekommen müsste
 keysend.SendKeys(Form1.SpeicherortEdit.Text);

Allerdings funktioniert das nicht. Was muss ich noch machen?

retnyg - So 24.07.05 19:35

Delphi-Quelltext

1:	keysend.SendKeys(extractfilename(Form1.SpeicherortEdit.Text));

statt 'explore' kannste auch mal 'open' versuchen
und statt WM_SETFOCUS evtl setforegroundwindow

Heiko - So 24.07.05 20:41

Also so hier:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ZielSuchenButtonClick(Sender: TObject);
var h: hwnd;
begin
 h:=ShellExecute(Form1.Handle, 'open', nil, nil, PChar(ExtractFileDir(Form1.SpeicherortEdit.Text)), SHOW_OPENWINDOW);
 sendmessage(h,WM_SETFOCUS,0,0);
 keysend.SendKeys(ExtractFileName(Form1.SpeicherortEdit.Text));
end;

Wie du das mit setforegroundwindow weiß ich allerdings nicht, denn das anstatt WM_SETFOCUS funktioniert nicht, das Delphi da rummeckert.

Lannes - Fr 29.07.05 23:34

Hallo,

wenn ich das richtig verstanden habe, willst Du den Explorer starten und eine Datei soll entsprechend deiner Vorgabe markiert sein.
z.B.

Delphi-Quelltext

1:
2:
3:
4:

var Datei : String;
begin
  Datei := 'C:\Temp\DieseDateiMarkieren.txt';
  ShellExecute(Form1.Handle, 'open','explorer.exe',Pchar('/e,/select,'+Datei), '', SW_SHOWNORMAL);

Sprint - So 31.07.05 14:54

Heiko hat folgendes geschrieben:

Allerdings würde mich noch interessieren, was das /e bei den Parametern bedeutet (/select ist ja das selektieren bestimmt).

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.

Heiko - Do 11.05.06 17:03

Mhm, ich wollte jetzt bei dem Problem auch Multiselect einführen. Nur irgendwie bekomme ich das nicht gebacken, dass er mehr als eine Datei markiert.

Ich habs bisher auf folgende 2 Varianten probiert, die beide nicht funktionieren :(:

Delphi-Quelltext

1:
2:

  ShellExecute(Handle, 'open','explorer.exe', PChar('/e,/select,' +
    'C:\flashplayer.xpt,C:\PDOXUSRS.NET'), nil , SW_SHOWNORMAL);

Delphi-Quelltext

1:
2:

  ShellExecute(Handle, 'open','explorer.exe', PChar('/e,/select,' +
    'C:\flashplayer.xpt,/select,C:\PDOXUSRS.NET'), nil , SW_SHOWNORMAL);

Und mit Leerzeichen, statt dem Komma, zw. den Pfaden nimmt er auch nicht an :(.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!