diff --git a/wjzl_1.pas b/wjzl_1.pas new file mode 100644 index 0000000000000000000000000000000000000000..3323b2b8867b239c49f672995afd14b4a5c7d854 --- /dev/null +++ b/wjzl_1.pas @@ -0,0 +1,321 @@ +unit wjzl_1; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, inifiles, ComCtrls; + +type + TForm1 = class(TForm) + Label1: TLabel; + Label2: TLabel; + ComboBox1: TComboBox; + Memo1: TMemo; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; + ListView1: TListView; + procedure FormCreate(Sender: TObject); + procedure ComboBox1Change(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn); + procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem; + Data: Integer; var Compare: Integer); + procedure ListView1CustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); + procedure Button4Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + Dirconfig :string = ''; //配置文件路径变量 + m_bSort:boolean =false; //排序方向全局变量 + +implementation + +uses wjzl_Unit2,wjzl_myfunc; //引用子窗体form2、自定义函数单元 + + +//用于将目录进行移动 + +{$R *.dfm} + +procedure TForm1.FormCreate(Sender: TObject); + +var + SearchRec:TSearchRec; //下面有详解 + found:integer; + MyIni :Tinifile; //ini文件类型 + strs :TStrings; //字符串列表类型 + i :Integer; + + Tct: _SystemTime; + Temp: _FileTime; + Dt: TDateTime; + DTstr :string; +begin + +//判断配置文件是否存在，并赋值路径变量 +if not(FileExists('C:\config.ini') or FileExists('D:\config.ini') or FileExists('config.ini')) then + begin + showmessage('这是您首次使用本程序，请进入后先设定目标文件夹（点“设置”按钮，可设定最少1个、最多6个目标文件夹），目标文件夹设定后可以随时修改。'); + end +else + begin + if FileExists('C:\config.ini') then Dirconfig := 'C:\' + else if FileExists('C:\config.ini') then Dirconfig := 'D:\' + else Dirconfig := ''; + end; +//提取当前目录所有文件列表 +found:=FindFirst(ExtractFilePath(ParamStr(0))+'*.*',faAnyFile,SearchRec); + //ExtractFilePath(ParamStr(0))程序当前所在目录 + +ListView1.Clear; +ListView1.Columns.Clear; + +with listview1 do +begin +Columns.Add; +Columns.Add; +ViewStyle:=vsreport; +GridLines:=true; +columns.items[0].caption:='文件名'; +columns.items[1].caption:='创建时间'; +Columns.Items[0].Width:=-1; +Columns.Items[1].Width:=-1; +end; + + while found=0 do + begin + if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') + and (pos('.lnk',SearchRec.Name)=0) + and (pos('.exe',SearchRec.Name)=0) + {and (SearchRec.Attr<>faDirectory)} then //好像是判断文件夹 + + with listview1.items.add do + begin + caption:=SearchRec.Name; + + //文件创建时间格式转换 + FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, Temp); + FileTimeToSystemTime(Temp, Tct); + DT := systemTimeToDateTime(Tct); + DTstr := formatdatetime('yyyy/mm/dd hh:mm:ss',DT); + // + subitems.add(DTstr); + + end; + + found:=FindNext(SearchRec); + end; +FindClose(SearchRec); + +//清除memo1显示内容 +memo1.Clear; + +//从当前配置文件config.ini中添加combobox1选项 + ComboBox1.Clear; + ComboBox1.text := '从下拉列表中选择目标文件夹--->'; + + MyIni := Tinifile.Create(Dirconfig + 'config.ini'); + + strs := TStringList.Create; + Myini.readsectionvalues('Setting',strs); + + for i := 0 to strs.Count-1 do + begin + ComboBox1.Items.Add(strs.ValueFromIndex[i]); + end; + + MyIni.Free; + + ActiveControl := listview1; //操作焦点放在listview1上 + +//显示当前目录 +label1.Caption := '当前目录'+ExtractFilePath(ParamStr(0))+'文件'; + +//m_bSort:=false; + +end; + +//当目标文件夹下拉列表选择项改变时触发 +procedure TForm1.ComboBox1Change(Sender: TObject); +var + i :Integer; +begin + + if (listview1.Items.count<>0) and (listview1.itemindex>=0) then + begin + memo1.Lines.Add(ListView1.Selected.Caption + '--->' + combobox1.Text); + i:= listview1.itemindex; + listview1.DeleteSelected; + if listview1.Items.count<>0 then + begin + if i= listview1.Items.count then + ListView1.Items[0].Selected := True + else + ListView1.Items[i].Selected := True; + end; + end + else + showmessage('文件列表为空或未选择文件！请确认。'); + +end; + +procedure TForm1.Button1Click(Sender: TObject); +var + vname,vname1,vname2:string; + samefiles: Integer; +begin + +samefiles:=0; //重名文件数 + +repeat + + if memo1.Lines.Count > 0 then + begin + vname:= memo1.Lines[0]; + vname1:= copy(vname,1,pos('--->',vname)-1); + vname2:= copy(vname,pos('--->',vname)+4,length(vname)-pos('>',vname)); + {if pos('.',vname1)<>0 then + MoveFile(PChar(vname1),PChar(vname2 + vname1)) //移动文件操作 + else} + WinMovepath(handle,vname1,vname2,false,false); //移动文件夹操作 + + if not(FileExists(vname1)) then + memo1.Lines.Delete(0) //删除当前文件移动记录 + else + inc(samefiles); //重名文件数自加1 + + if memo1.Lines.Count = 0 then + showmessage('移动列表已整理完毕，请继续选择或退出。') + else if memo1.Lines.Count = samefiles then + showmessage('移动列表已整理完毕，有'+inttostr(samefiles)+'个重名文件(或文件夹)无法移动，请退出后查看。'); + end + else + showmessage('移动列表为空！请继续选择或退出。'); + +until memo1.Lines.Count = samefiles ; + +end; + +procedure TForm1.Button2Click(Sender: TObject); +begin + close; +end; + +procedure TForm1.Button3Click(Sender: TObject); + +Var + MyIni :Tinifile; + i :Integer; + +//读取子窗体form2中各目标文件夹初始值 +begin + form2.Show; + + MyIni := Tinifile.Create(Dirconfig + 'config.ini'); + + for i := 1 to 6 do + begin + (form2.FindComponent('Edit'+inttostr(i)) as TEdit).Text + := MyIni.ReadString('Setting','Folder'+inttostr(i),''); + end; + + MyIni.Free; +end; + +//ListView排序的回调函数，默认的是快速排序法，也可以自己在这里做算法 +function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall; +var txt1,txt2 : string; +begin + if ParamSort <> 0 then + begin + try + txt1 := Item1.SubItems.Strings[ParamSort-1]; + txt2 := Item2.SubItems.Strings[ParamSort-1]; + if m_bSort then + begin + Result := CompareText(txt1,txt2); + end + else + begin + Result := -CompareText(txt1,txt2); + end; + except + end; + + end + else + begin + if m_bSort then + begin + Result := CompareText(Item1.Caption,Item2.Caption); + end + else + begin + Result := -CompareText(Item1.Caption,Item2.Caption); + end; + end; +end; + +//单击listview列标题栏排序 +procedure TForm1.ListView1ColumnClick(Sender: TObject; + Column: TListColumn); +begin + ListView1.CustomSort(@CustomSortProc, Column.Index); + {//升序图标 + if m_bSort = True then + Column.ImageIndex := 0 + else + //降序图标 + Column.ImageIndex := 1; + } + m_bSort := not m_bSort; //再次单击标题栏倒序排列 +end; + +procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; + Data: Integer; var Compare: Integer); +begin + if Data = 0 then //按标题列排序 + Compare := CompareStr(Item1.Caption, Item2.Caption) + else //按其他列排序 + Compare := CompareStr(Item1.SubItems.Strings[Data-1], Item2.SubItems.Strings[Data-1]); +end; + +//listview1失去焦点后仍保持所选项为蓝色状态 +procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); +begin + if Item.Selected then + Sender.Canvas.Brush.Color := clSkyBlue; +end; + +//显示程序帮助说明 +procedure TForm1.Button4Click(Sender: TObject); +begin + ShowMessage('　　　　　　　　　　　　　　　　　　 欢迎使用文件整理程序！'+#13#10+#13#10+ + '　　首次使用本程序请点击“设置”按钮，设定至少一个目标文件夹，然后单击“确定”后重新进入程序。'+#13#10+ + '在左侧文件列表框中选择要移动的文件，然后点击右侧下拉目标文件夹列表下箭头处，从中选择目标路径，'+#13#10+ + '此时列表下方会显示待移动文件信息，重复此项操作。当需整理文件选择确认无误后，点击下方确定按钮。'+#13#10+ + '程序即可自动完成当前所在文件夹的文件整理工作。'+#13#10+#13#10+ + '　　本程序由陈喆个人编程工作室出品，您在使用中如有不满意之处，请多提出宝贵意见，并及时向本人'+#13#10+ + '反馈（邮箱地址：27005658@qq.com），在此仅向您表示诚挚的谢意！'); +end; + +end. + + + + + + +