Оганизовать поиск в файловом менеджере

[Просто_так)]

Помогите организовать поиск в ShellTreeView по нажатию кнопки, чтобы при этом раскрывалось дерево и выделялась нужная папка/файл.

В своем файловом менеджере я разместил кнопки переместить, копировать, удалить, создать каталог, обновить, переименовать, свойства, а процедуру поиска прописать никак не могу(

Ребята, помогите кто с процедурой для поиска.

[Stilet]

а процедуру поиска прописать никак не могу(

Я тоже не мог, поэтому послал ShellTreeView подальше и написал свой его аналог.
Если нужно могу поделиться.

[Просто_так)]

Сообщение от Stilet

Я тоже не мог, поэтому послал ShellTreeView подальше и написал свой его аналог.
Если нужно могу поделиться.

эх, я над своим менеджером месяц мучался, сразу помогали, потом кнопки сам кое-как добавлял, в интеренете смотрел, в книжках, а в пятницу отнес на проверку прогу, а препод говорит, поиска мать его, ему не хватает) теперь вот выкручиваюсь как могу, облазил все что можно, вот решил обратится) уже со следующий недели нужно пояснительную записку писать)

http://ifolder.ru/23643733 - вот она, работа моя)

А что у тебя за аналог?
Поделись, если можно.

[Stilet]

Эх... Ладушки, выкладываю свои наработки. 10 лет их копил.
Есть там компонентов много хороших. Среди них ETreeViewExplorer - тот самый заменитель
Юзать его так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, CRTFOX;

type
  TForm1 = class(TForm)
    EtreeViewExplorer1: TEtreeViewExplorer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 EtreeViewExplorer1.Align:=alClient;
 EtreeViewExplorer1.BasePath:='d:\';
 EtreeViewExplorer1.Path:='D:\Музыка\_Русский Рок\E.S.T\1998-Терапия для души\01_est_kayf.mp3';
end;

end.

Проинсталлируешь и пользуйся.

P.S. Кстати если кому понадобятся мои наработки милости просим

[Просто_так)]

Сообщение от Stilet

Эх... Ладушки, выкладываю свои наработки. 10 лет их копил.
Есть там компонентов много хороших. Среди них ETreeViewExplorer - тот самый заменитель
Юзать его так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, CRTFOX;

type
  TForm1 = class(TForm)
    EtreeViewExplorer1: TEtreeViewExplorer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 EtreeViewExplorer1.Align:=alClient;
 EtreeViewExplorer1.BasePath:='d:\';
 EtreeViewExplorer1.Path:='D:\Музыка\_Русский Рок\E.S.T\1998-Терапия для души\01_est_kayf.mp3';
end;

end.

Проинсталлируешь и пользуйся.

P.S. Кстати если кому понадобятся мои наработки милости просим

спасибо большое!!
но все же если кто поможет с shelltreeview, буду блогадарен)