请问怎么把文件夹下面的文件名读到listbox里面？

Question

我想请问一下在delphi里面读取某文件名该怎么写呢 比如我在我的p1文件夹下面有几个*.mp3的文件我现在想把它的文件名读到listbox 里面 请问该怎么写语句呢？                哪位大哥知道的请指教谢谢

Answer 1

不用写了，直接用TFileListBox，在win3.1里面

Answer 2

API实现代码，粘了即能用，这里是取所有*.bmp文件代码，自已改改加两个参数吧function GetBmpFileList: TStrings;
var
  doserror :integer;
  SearchRec:TsearchRec;
begin
  Result :=TStringList.Create;
  doserror := FindFirst(ExtractFilePath(Application.ExeName) + '*.bmp',faAnyFile,SearchRec);
  while doserror = 0 do
  begin
    Result.Add(ChangeFileExt(SearchRec.Name,''));
    doserror := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;