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.