Explorer an einer bestimmten Stelle öffnen

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