TListView的编程问题！送分！！！！！！(10分)

如何编程让TlistView显示一个文件夹中的内容，我在写一个软件，十万火急！快！

快！谁写了，我不会亏待他的！！！！！！！！！

怎么个不亏待法,
想写和WINDOWS资源管理器那样的,从头写一个1000元都没人干

uses
ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
Winexec('c:/winnt/explorer.exe', SW_SHOW);
end;

那么网络蚂蚁的那个是怎么实现的呢？也是编程吗？那么，这么说，洪以容可以进微软啦？！！

那么网络蚂蚁的那个是怎么实现的呢？
----不知道,也懒着想.
也是编程吗？
----这是肯定的,即使用了第三方的控件(我相信他没用)代码还是要人编的.
那么，这么说，洪以容可以进微软啦？！！
----这个要问微软, 洪以容够格吗?
还要问洪以容, 你愿意去给BILL打工吗?

他的只是显示一个目录中的文件吧，也没什么难的。
虽然不难，你的分也太少了吧

to :menxin
给了我详细源代码，我给你再加100分！200分也可！

给你个我用ListView控件显示某个目录下文件的例子,看看有无帮助吧.
我的ListView有两个Columns,一个FILENAME,另外一个FILE SIZE.
Procedure RefreshListView(PathDir: String; ListV: TListView);
Var
sr: TSearchRec;
ListItem: TListItem;
SizeStr: String;
Begin
ListV.Items.BeginUpdate ;
ListV.Items.clear;
If PathDir[Length(PathDir)]<>'/' Then
PathDir := PathDir+'/';
If FindFirst(PathDir+'*.*', $27, sr)=0 Then
Begin
ListItem := ListV.Items.add;
ListItem.caption := sr.Name;
SizeStr := Format('%.2fK', [sr.Size/1024.0]);
ListItem.SubItems.add(SizeStr);
While FindNext(sr)=0 Do
Begin
ListItem := ListV.Items.add;
ListItem.caption := sr.Name;
SizeStr := Format('%.2fK', [sr.Size/1024.0]);
ListItem.SubItems.add(SizeStr);
End;
End;
ListV.Items.EndUpdate ;
End;

很难吗？用现成的控件吧。
www.delphifreestuff.com应该有货，深度历险上也有吧。
看源码是一样的。

多人接受答案了。