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;
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值