用SendMessage获取目录下所有文件

来源:百度文库 编辑:神马文学网 时间:2024/04/30 04:19:37
.style1 { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ff6699}.yjx { BORDER-RIGHT: #f0f0f0 0px solid; BORDER-TOP: #f0f0f0 0px solid; BORDER-LEFT: #f0f0f0 0px solid; BORDER-BOTTOM: #f0f0f0 0px solid}[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;