Explorer an einer bestimmten Stelle öffnen

[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: