请高手帮帮：把一个目录下的文件名遍历到listview上

Question

如何把一个目录下的文件名遍历到listview上，要事例代码，不要再说让我看delphi带的demo了，本人水平有限看不懂。

Answer 1

//查找当前目录下的所有文件
procedure TForm1.Button1Click(Sender: TObject);
var
  hand : Cardinal;
  fd : _WIN32_FIND_DATAA;
  filename : PAnsiChar;
  item : TListItem;
begin
//分配内存并取得当前目录
  filename := StrAlloc(256);
  GetCurrentDirectory(256,filename);
  StrCat(filename,'\*');
  hand := Windows.FindFirstFile(filename,fd);
  item:=ListView1.Items.Add;//将找到的文件名加入listview
  item.Caption:=fd.cFileName;
  while(GetLastError() <> ERROR_NO_MORE_FILES) do//继续查找直到结束
  begin
    Windows.FindNextFile(hand,fd);
    item:=ListView1.Items.Add;
    item.Caption:=fd.cFileName;
  end;
  Windows.FindClose(hand);//关闭查找句柄
  StrDispose(filename);
end;