Dateien aus Datei-Suche anzeigen

[neo4a]

Zitat von Ykcim:

Hat jemand eine Idee, wie ich das realisieren kann?

Vielleicht suchst Du ja nur soetwas:

Delphi-Quellcode:

var
  aMask : string;
  aSearchRec : TSearchRec;
begin
    aMask := '4711*.pdf';
    if FindFirst(aMask, faAnyFile, aSearchRec) = 0 then
    try
      repeat
// Keine Verzeichnis-Rekursion
        if not (aSearchRec.Attr and faDirectory = faDirectory) then
        begin
          aMenuItem := TMenuItem.Create(Self);
          aMenuItem.Caption := ChangeFileExt(aSearchRec.Name, '');
          aMenuItem.ImageIndex := actItem.ImageIndex;
          aMenuItem.OnClick    := actItemExecute;
          FPopupMenu.Items.Add(aMenuItem);
        end;
      until FindNext(aSearchRec) <> 0;
    finally
      FindClose(aSearchRec);
    end;

Ansonsten hätte ich noch einen anderen Vorschlag: Everything. Dieses Minitool kommt u.a. auch portabel daher und ich benutze es seit langem als s**schnelle Dateisuche im gesamten Dateisystem.

Nun hat das Programm auch einen Http-Server eingebaut. Den spricht man zur Dateisuche z.B. so an: http://localhost:801/?s=4711*.pdf

Wenn Du also die Dateien gleich noch anzeigen willst und die ggf. sogar auch einem anderen Server liegen, brauchst Du eigentlich nur noch einen Webbrowser (intern oder extern) anzusteuern.