Hmm..
Da sind mehrere Fehler drinnen..
Und da ich nicht jeden einzelnd erklären will, hier mal eine Funktion, welche Dir alle Dateien eines Verzeichnisses auflistet:
Delphi-Quellcode:
procedure GetFileList(APath : string;AList : TStrings;WithSubPath : boolean);
var
sr: TSearchRec;
tmpPath : string;
begin
tmpPath := IncludeTrailingPathDelimiter(APath);
if FindFirst(tmpPath+'*.*', faAnyFile, sr) = 0 then begin
repeat
if (sr.Attr or faDirectory) = sr.Attr then begin
if WithSubPath then begin
if (sr.Name[1] <> '.') then
GetFileList(tmpPath+sr.Name,AList,WithSubPath);
end;
end else begin
AList.Add(tmpPath + sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
Danach gehst Du die Liste durch und versucht alle Dateien mit .pdf Erweiterung zu konvertieren.