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 泛型排序器 tcomparer

Delphi winapi: getforegroundwindow - 获取前台窗口的句柄

Delphi xe2 将域名转ip

Delphi shellexecute openurl 的跨平台实现

Delphi if语法,弹出提示框,不等于写法,判断是否为空

Delphi报警声音 beep、messagebeep 和 windows.beep

Delphi android gps服务

Delphi 用tidsmip和tidmessage发送邮件

Delphi xe7写的一个http post的小测试程序

Delphi 一个call应该如何写?

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

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