Morgen
Damit geht es leider auch nicht...die Verzeichnis namen sind zu lang!
Ich weiß im Moment leider auch nicht mehr weiter.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
path: string;
begin
path:='C:\Eigene Dateien\Eigene Programme';
SendMessage(ListBox1.Handle,LB_DIR,DDL_READWRITE,lParam(PChar(path+'\*.*')));
end;