DELPHI 7 打開指定文件夾裡所有文件

{DELPHI 7 打開指定文件夾所有文件}
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, StdCtrls,shellAPI, Mask, DBCtrlsEh;
//***********************

procedure TForm1.OpenFolder(folder,ctype: String);
var
  sr:TSearchRec;
begin
  if folder[length(folder)]<>'/' then
     folder:=folder+'/';
 // if findFirst(folder+'*品管*.*',faanyFile,sr)=0 then
 if findFirst(folder+ctype,faanyFile,sr)=0 then
  begin
    repeat
      if sr.Attr and faDirectory=faDirectory then
      begin
         if (sr.Name<>'.') and (sr.Name<>'..') then
            OpenFolder(folder+sr.Name,ctype);
      end
      else
      begin
       ShellExecute(Handle, nil, pchar(sr.Name), nil, pchar(folder),SW_SHOW);// FileOpen(folder+sr.Name);
      end;
    until findNext(sr)<>0;
    findClose(sr);
   // ShellExecute(Handle, nil, pchar(sr.Name), nil, pchar(folder),SW_SHOW);// FileOpen(folder+sr.Name);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  uInifile:Tinifile;
  inifilename,path:string;
begin
     // 從 INI文件中取晨會文件夾路徑。
   IniFilename:=extractfilepath(application.ExeName)+'Setup.ini';
   if fileexists(inifileName) then
     begin
      uinifile:=Tinifile.create(Inifilename);
      Path :=uInifile.readString('paths','path','');
     end;
      Path := Path +'/' + formatdateTime('mmdd',DBDateTimeEditEh1.Value) ;
  //  SHOWMESSAGE(path);
    openFolder(path,'*品管*.*'); //自定義打開文件過程

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  uInifile:Tinifile;
  inifilename,path:string;
begin

       // 從 INI文件中取晨會文件夾路徑。
   IniFilename:=extractfilepath(application.ExeName)+'Setup.ini';
   if fileexists(inifileName) then
     begin
      uinifile:=Tinifile.create(Inifilename);
      Path :=uInifile.readString('paths','path','');
     end;
    Path := Path +'/' + formatdateTime('mmdd',date()) ;

    edit1.Text:=path;
    form1.Caption:='電子科技(東莞)有限公司--'
         +formatdateTime('yyyy"年"mm"月"dd"日"',date()) + '晨會'; //在FORM（窗口）標題顯示公司名稱與當前日期
    DBDateTimeEditEh1.Value :=  FormatDateTime( 'yyyy/mm/dd ',now);
end;