本文整理自网络，侵删。
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;
相关阅读 >>
Delphi comparestr 这个函数可以模糊匹配，且不区分大小写
Delphixe7关于android 检测屏幕是否处于关闭状态
Delphi windows 编程[2] - 学习窗体生成的过程二
Delphi application.title在win7下失效了？
Delphi tstringlist indexof find 查找字符串
更多相关阅读请进入《Delphi》频道 >>
