Файловый менеджер с поддержкой поиска mp3-файлов по ID3-параметрам

//  frFilePanelRight.Width:=frFilePanelLeft.Width;

end; 

procedure TfmDarkickCommander.miExitClick(Sender: TObject); //Выход

begin

  Close;

end; 

procedure TfmDarkickCommander.cmbxCommandKeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

Var

  P:Integer;

  Command, Params:String;

begin

  If Key<>VK_Return Then Exit;

  cmbxCommand.Text:=Trim(cmbxCommand.Text);

  If ssCtrl In Shift Then

  Begin

    cmbxCommand.Text:=' '+cmbxCommand.Text+lbItem.Caption+' ';

    Exit;

  End; 

  If cmbxCommand.Items.IndexOf(cmbxCommand.Text)<0 Then

cmbxCommand.Items.Add(cmbxCommand.Text);

  P:=Pos(' ', cmbxCommand.Text);

  If P<=0 Then

  Begin

ExecuteOneFile(lbPath.Caption, cmbxCommand.Text, '');

    Exit;

  End; 

  Command:=Copy(cmbxCommand.Text, 1, P-1);

  Params:=Copy(cmbxCommand.Text, P+1, Length(cmbxCommand.Text)-P);

ExecuteOneFile(lbPath.Caption, Command, Params);

end; 

procedure TfmDarkickCommander.cmbxCommandEnter(Sender: TObject);

begin

  cmbxCommand.SelectAll;

end; 

procedure TfmDarkickCommander.miAboutClick(Sender: TObject);

begin

  fmAbout.ShowModal;

end; 

procedure TfmDarkickCommander.btEditClick(Sender: TObject); //Правка

begin

  If frFilePanelLeft.NowActive Then

    frFilePanelLeft.EditFile

  Else

    frFilePanelRight.EditFile;

end; 

procedure TfmDarkickCommander.btCopyClick(Sender: TObject); //Копировать

var

s,s1,s2:string;

begin

  fmAnyMessage.Show;

  If frFilePanelLeft.NowActive Then

begin

s:=frFilePanelLeft.NameDir;

      s1:=frFilePanelLeft.CurrentFullPath + s;

      s2:=frFilePanelRight.CurrentFullPath;

      fmAnyMessage.lbl4.Caption:=s1;

      fmAnyMessage.lbl5.Caption:=s2;

frFilePanelLeft.CopyDir(s1,s2);

      frFilePanelRight.Refresh;

end

  Else

begin

s:=frFilePanelRight.NameDir;

      s1:=frFilePanelRight.CurrentFullPath + s;

      s2:=frFilePanelLeft.CurrentFullPath;

      fmAnyMessage.lbl4.Caption:=s1;

      fmAnyMessage.lbl5.Caption:=s2;

frFilePanelRight.CopyDir(s1,s2);

      frFilePanelLeft.Refresh;

end;

    fmAnyMessage.Hide;

end; 
 

procedure TfmDarkickCommander.btMoveClick(Sender: TObject); //Переместить

var

s,s1,s2:string;

begin

  fmAnyMessage.Show;

  If frFilePanelLeft.NowActive Then

begin

s:=frFilePanelLeft.NameDir;

      s1:=frFilePanelLeft.CurrentFullPath + s;

      s2:=frFilePanelRight.CurrentFullPath;

      fmAnyMessage.lbl4.Caption:=s1;

      fmAnyMessage.lbl5.Caption:=s2;

frFilePanelLeft.CopyDir(s1,s2);

frFilePanelLeft.FullRemoveDir(s1,True,True,True);

end

  Else

begin

s:=frFilePanelRight.NameDir;

      s1:=frFilePanelRight.CurrentFullPath + s;

      s2:=frFilePanelLeft.CurrentFullPath;

      fmAnyMessage.lbl4.Caption:=s1;

      fmAnyMessage.lbl5.Caption:=s2;

frFilePanelRight.CopyDir(s1,s2);

frFilePanelRight.FullRemoveDir(s1,True,True,True);

end;

    fmAnyMessage.Hide;

    frFilePanelRight.Refresh;

    frFilePanelLeft.Refresh; 

end; 

procedure TfmDarkickCommander.btFolderClick(Sender: TObject); //Создатькаталог

begin 

  If frFilePanelLeft.NowActive Then

    frFilePanelLeft.CreateFolder

  Else

    frFilePanelRight.CreateFolder;

end; 
 

procedure TfmDarkickCommander.btDeleteClick(Sender: TObject);

//Удалить

var

s,s1,s2:string;

begin

  If frFilePanelLeft.NowActive Then

begin 
 

s:=frFilePanelLeft.NameDir;

      s1:=frFilePanelLeft.CurrentFullPath + s;

frFilePanelLeft.FullRemoveDir(s1,True,True,True); 
 

end

  Else

begin

s:=frFilePanelRight.NameDir;

      s1:=frFilePanelRight.CurrentFullPath + s; 
 

frFilePanelRight.FullRemoveDir(s1,True,True,True);

end;

    frFilePanelLeft.Refresh;

    frFilePanelRight.Refresh;

end; 

procedure TfmDarkickCommander.frFilePanelLeftbtDirRootClick(

  Sender: TObject);

begin

frFilePanelLeft.btDirRootClick(Sender); 

end; 

procedure TfmDarkickCommander.frFilePanelLeftdcbxDriveChange(

  Sender: TObject);

begin 
 

frFilePanelLeft.dcbxDriveChange(Sender); 
 
 

end;

procedure TfmDarkickCommander.frFilePanelLeftpnFilesInfoClick( 
 

  Sender: TObject);

begin

frFilePanelLeft.lbCurrentPathClick(Sender); 

end; 
 

procedure TfmDarkickCommander.Button1Click(Sender: TObject); //Выход

begin

Close;

end; 

procedure TfmDarkickCommander.frFilePanelLeftbbRefreshClick(

  Sender: TObject);

begin

frFilePanelLeft.bbRefreshClick(Sender);

end; 

procedure TfmDarkickCommander.frFilePanelLeftlvFilesKeyDown(

  Sender: TObject; var Key: Word; Shift: TShiftState);

begin

frFilePanelLeft.lvFilesKeyDown(Sender,Key,Shift);

end; 

procedure TfmDarkickCommander.frFilePanelRightlvFilesKeyDown(

  Sender: TObject; var Key: Word; Shift: TShiftState);

begin

frFilePanelRight.lvFilesKeyDown(Sender,Key,Shift);

end; 

procedure TfmDarkickCommander.btn1Click(Sender: TObject);

begin

frSearch.Show;

end; 

procedure TfmDarkickCommander.N1Click(Sender: TObject);

begin

frSearch.Show;

end;

end.