Delphi用SendMessage获取目录下所有文件-木庄网络博客

本文整理自网络，侵删。

 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 如何用程序控制禁止和起用上网？

Delphi android ios 获取packagename

Delphi 超精简无卡顿调用dos命令输出结果

Delphi 隐藏任务栏程序，取消自动对齐和网格对齐

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

Delphi中实现dbgrid列宽度自动调整

更多相关阅读请进入《Delphi》频道 >>