//显示任意一个目录的文件到TReeview中 unit uTreeViewDemo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, FileCtrl; const SELDIRHELP = 1000; type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TB
还可以，我用上了，值得借鉴。