Explorer an einer bestimmten Stelle öffnen

[Ajin]

Hallo DP!

Ich durchsuche meine Festplatte nach z.B. Powerp*int Präsentationen und liste die Ergebnis in einer Listbox auf. Ein Beispieleintrag sieht z.B. so aus: C:\Präsentationen\

Mittels Doppelklick auf einen Eintrag in der Listbox soll ein Explorerfenster an der richtigen Stelle aufgeben. Das wollte ich so lösen:

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
////
//// Ordner Öffnen
////
procedure ShowFolder(strFolder: string);
begin
  ShellExecute(Application.Handle, PChar('open'), PChar(strFolder), nil, nil, SW_SHOWNORMAL);
end;

procedure TFmain.ListBox1DblClick(Sender: TObject);
var s:string;
begin
 s := listbox1.Items[listbox1.ItemIndex];
 Showfolder(s);
end;

Das klappt nicht, es wird kein Explorer angezeigt. Sehr seltsam. Ich habe es dann dann manuell getestet:

Delphi-Quellcode:

Showfolder('C:\Präsentationen\');

Funktioniert.

Delphi-Quellcode:

Showfolder('C:\Präsentationen');

Funktioniert ebenfalls. Nur

Delphi-Quellcode:

s := listbox1.Items[listbox1.ItemIndex];
Showfolder(s);

Klappt nicht obwohl in Variable s genau 'C:\Präsentationen\' drinsteht.

Ich hab sogar versucht den letzten Slash per copy zu entfernen damit s = 'C:\Präsentationen' beinhaltet. Auch das funktioniert nicht. Warum nur?

[DeddyH]

Klappt es denn, wenn Du aus dem 'open' in ShowFolder ein 'explore' machst?

[jbg]

Ich mache das immer so: "explorer.exe /e,C:\MeinVerzeichnis"

[DeddyH]

Das sollte natürlich auch gehen, aber wenn es die Möglichkeit "explore" doch schon gibt...

[Ajin]

Ich habe 'open' durch 'explore' ersetzt, keine Wirkung.

Steht in dem 's' noch irgendwas zusätzliches drin dass man mit einer Showmessge(s) auf den ersten Blick nicht sehen kann? Evtl. Steuerzeichen oder sowas?

[DeddyH]

Sollte eigentlich nicht sein, aber versuch es mal mit trim(s)

[Ajin]

Fehlanzeige :(

Das gibts doch nicht!

[mirage228]

Lass Dir mal die Fehlermeldung von ShellExecute ausgeben...

Delphi-Quellcode:

  if ShellExecute(Self.Handle, 'explore', PChar(Folder), nil, nil, SW_SHOWNORMAL) <= 32 then
      RaiseLastOSError;

[Ajin]

Interessant, das gibt folgendes Feedback:

System Error. Code : 2.
Das System kann die angegebene Datei nicht finden.

ALso ist doch was Faul am String 's' - obwohl er gemäß Showmessage 'C:\Präsentationen' lautet.

[roga]

Hallo,

wird der Listeneintrag auch korrekt übergeben?

Vielleicht mal testen:
showmessage(listbox1.Items[listbox1.ItemIndex]);

oder vielleicht so:
s := listbox1.Items.Strings[listbox1.ItemIndex];

[Ajin]

Hi roga

Delphi-Quellcode:

s := listbox1.Items.Strings[listbox1.ItemIndex];

hab ich mir schon ausgeben lassen, siehe mein Eröffnungspost 8)

[Ajin]

Hallo DP,

Ich habe mal das Programm in den Anhang gehängt - es sind nur knapp 9KB, evtl. mag es sich ja wer anschauen.

Was ich auch nicht ganz verstehe: wann ist die Suche denn genau beendet?

[DeddyH]

Hab ich das richtig gesehen, dass Du nur die Dateinamen in der ListBox anzeigst?

[Ajin]

Es wird der komplette Pfad ohne Dateiname in der Listbox festgehalten.

C:\Programme\Office\Bla.doc

[TurboMartin]

Ich hab da grad was am Ende des Strings entdeckt:
Pfad + #$D + #$A
Da hängt der Zeilenumbruch noch mit dran...

[DeddyH]

Der wäre aber durch trim() wieder entfernt worden.

[TurboMartin]

Zitat:

Zitat von DeddyH

Der wäre aber durch trim() wieder entfernt worden.

Nein, bei mir, habs getestet, ist es nicht weg.
Probiers mal mit SetLength(s, Length(s)-2);

[Die Muhkuh]

Quark, natürlich geht es weg und danach funktioniert es auch:

Delphi-Quellcode:

s := Trim(listbox1.Items[listbox1.ItemIndex]);
showmessage(listbox1.Items[listbox1.ItemIndex]);
//trim(s);
if ShellExecute(Application.Handle, PChar('explore'), Pchar(s), nil, nil, SW_SHOWNORMAL) <= 32 then
      RaiseLastOSError;

[Ajin]

Guten Morgen!

Ich wusste dass wieder einmal (auf den ersten Blick) nicht sichtbare Steuerzeichen mein Vorhaben scheitern lassen.

Ich sollte mehr Milch trinken :stupid:

Vielen Dank liebe Muhkuh und an alle anderen Beitragsverfasser!

[DeddyH]

Dann verstehe ich aber nicht, wieso das nicht schon nach #6 funktioniert hat :gruebel:

[Hawkeye219]

Hallo Detlef,

Zitat:

Zitat von DeddyH

Dann verstehe ich aber nicht, wieso das nicht schon nach #6 funktioniert hat :gruebel:

wenn ich die auskommentierte Zeile in Beitrag #18 sehe, dann verstehe ich das schon...

Gruß Hawkeye

[DeddyH]

Die kam aber von Manuel ;)

[p80286]

Hallo zusammen,

warum werden die Daten eigentlich nicht "vor" der Anzeige aufbereitet?
Meiner Meinung nach gehören in die Listbox "saubere" Daten.
Dieses

Delphi-Quellcode:

Trim(listbox1.Items[listbox1.ItemIndex]);

halte ich für Frikkelei.

Gruß
K-H

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Die kam aber von Manuel ;)

Das auskommentierte Trim(S) kommt nicht von mir. Vielleicht hab ich es auskommentiert, aber ich hab es da nicht hingeschrieben ;)

[DeddyH]

Ist ja schon gut *kopftätschel* :lol:

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Ist ja schon gut *kopftätschel* :lol:

Vorsicht: Bissig. Eltern haften für ihre Kinder. :stupid: