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 数据库char varchar nvarchar区别

Delphi writeln 写入一行文本

Delphi下载程序并且urldownloadtofile的进度提示

Delphi中的copy，delete，pos和leftstr,rightstr的用法

Delphi 10.3 开发app 在android手机上获取imei

Delphi 让控制台窗口不现实出来

Delphi tmsweb core webhttprequest1提交json数据

Delphi 从资源文件中加载字符

Delphi 10.3.1 android沉浸式透明状态栏

Delphi hex 相关单元

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

转载请注明出处：木庄网络博客 » Delphi用SendMessage获取目录下所有文件