unit1.~pas

一个文件搜索工具

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ExtDlgs, SkinCaption, WinSkinData,
  CheckLst;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Label5: TLabel;
    Panel2: TPanel;
    Label4: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SkinData1: TSkinData;
    SkinCaption1: TSkinCaption;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    L_Disk: TCheckListBox;
    L_SongClass: TCheckListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  //  procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Uses WinAPI_Unit, Unit2, Unit3;


procedure TForm1.Button1Click(Sender: TObject);
var
  i, j       : Integer;
  DiskPath   : String;
  SongClass  : String;
begin
  ListBox1.Clear;
  for i:= 0 to L_Disk.Count-1 do
  begin
    if L_Disk.Checked[i]= True then
    begin
      DiskPath:= L_Disk.Items[i];
      for j:= 0 to L_SongClass.Count-1 do
      begin
        if L_SongClass.Checked[j]= True then
        begin
          SongClass:= L_SongClass.Items[j];
          if Copy(DiskPath,Length(DiskPath),1)='\' then DiskPath:= Copy(DiskPath,1,Length(DiskPath)-1);
          G_SearchDir(DiskPath,SongClass,ListBox1.Items);
          Label3.Caption:= IntToStr(ListBox1.Count);
        end;
      end;
    end;
  end;
  Label3.Caption:= IntToStr(ListBox1.Count);
  G_MessageBox('文件搜索完成!');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i,j : integer;
begin
  L_Disk.Items:= G_SearchDrive;
  for i:= 0 to L_Disk.Count-1      do L_Disk.Checked[i]:= True;
  for j:= 0 to L_SongClass.Count-1 do L_SongClass.Checked[j]:= True;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Help: THelp;
begin
  Help := THelp.Create(Application);
  Help.ShowModal();
end;

end.