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.