/? Hilfe in der Konsole

[p80286]

Also Gut, nehmen wir mal an, daß wirklich nur der Startpfad übergeben wird.

Delphi-Quellcode:

startpfad:='';
for i:=1 to paramcount do
  startpfad:=startpfad+' '+paramstr[i];
if (length(startpfad)>0) and (startpfad[1]='"') then
    delete(startpfad,1,1);
if (length(startpfad)>0) and (startpfad[length(startpfad)]='"') then
    delete(startpfad,length(startpfad),1);

so ungefähr sollte es funktionieren.
Wenn u.U. auch noch "/?" oder "-H" übergeben werden sollte, dann mußt Du Dir da etwas einfallen lassen.

Gruß
K-H

P.S.
Natürlich brauchst Du Findfirst/Findnext, wie willst Du sonst an die Dateinamen kommen?
OK mit Opendialog ginge das auch, wenn man klickwütig ist.