{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;