Explorer an einer bestimmten Stelle öffnen

[Ajin]

Hi roga

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

Vielen Dank liebe Muhkuh und an alle anderen Beitragsverfasser!

[DeddyH]

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