Ah ja. Habe den letzten Tip mal schnell umgesetzt. Müßte fast schon so gehen. Leider aber nur von Hand. Sieht vielleicht noch jemand warum das so nicht geht :
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var i : integer;
DirInfo : TSearchRec;
begin
i := 0;
if FindFirst('*.DBF',faArchive,DirInfo) = 0 then repeat
ShellExecute(0,'open','dbf2csv',PChar (DirInfo.Name),'C:\L',SW_NORMAL);
i := i + 1;
until FindNext(DirInfo) <> 0;
FindClose (DirInfo);
showmessage (IntToStr (i));
end;
Was ist an dem shellexecute falsch ?