用SendMessage获取目录下所有文件

用SendMessage获取目录下所有文件

收藏人：aaaaa826

2014-06-14 | 阅：1  转：10

|   来源

|  分享

 

 

 

  

[Delphi]用SendMessage获取目录下所有文件   procedure TForm1.btn1Click(Sender: TObject); const   DIRATTR = DDL_READWRITE or DDL_READONLY or DDL_HIDDEN or DDL_SYSTEM or              DDL_ARCHIVE or DDL_DIRECTORY {or DDL_DRIVES} ;   sPath = ‘F:\音乐‘;   //目录可以自己定义为动态参数 var   Files : string; begin   Files := ‘*.*‘;      //查找文件类型   SetCurrentDirectory(sPath);   SendMessage(Lst1.Handle, LB_DIR, DIRATTR, LParam(Files)) ; end;