Делается это руками.
При старте ищешь все файлы с помощью FindFirst/FindNext/FindClose и создаешь для них соответсвующие узлы дерева. ссылки на эти файлы можно положить в свойство Data каждого узла, а в Text вывести только короткое имя файла. Ну, короче, тут зависит от того где эти файлы реально лежат.
Отображение делается с помощью "запихивания" содержимого этих файлов в виде строки в TWebBrowser (читаешь с момощью TStringList.LoadFromFile и дальше строку из TStringList.Text запихиваешь в WebBrowser). Или можно сделать ссылку вида file://c:/myprog/file.xml и вызвать метод Navigate.
|