Wie kann man "zuletzt verwendete Dokumente" auslesen???

[mirage228]

Hi,

den Inhalt eines Ordners kannst du mit dieser Funktion ermitteln:

Delphi-Quellcode:

  procedure FileList(sPath, sExt: string; bRecurse: boolean; List: TStrings); 
  var 
    f, 
    f2: TSearchRec; 
  begin 
    if FindFirst(sPath + '*.*', faAnyFile, f) = 0 then 
    begin 
     if FindFirst(sPath + sExt, faAnyFile, f2) = 0 then 
     begin 
       List.Add(sPath + f2.Name); 
       while FindNext(f2) = 0 do 
         if (f2.Name <> '.') and (f2.Name <> '..') then List.Add(sPath + f2.Name); 
     end; 
     while FindNext(f) = 0 do 
       if ((f.Attr and faDirectory) = faDirectory) and (f.Name <> '.') 
         and (f.Name <> '..') and (bRecurse) then 
           FileList(sPath + f.Name + '\', sExt, bRecurse, List); 
    end; {if} 
    FindClose(f); 
  end;

mfG
mirage228