Как связать ShellChangeNotifier с ShellComboBox

[lexaltd]

Мне надо - нажимаеш на кнопку и выбираеш корневой коталог (чтоб при открытии програмы корневой каталог оставался тот же) - есть такая функция " ShellChangeNotifier " , но как её связать с ShellComboBox , я не знаю ?

Я не сильно разбираюсь в программировании - подскажите как решить эту проблему

Зарание спасибо за помощь.

P.S.
Думаю должно быть типа такого :

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ShellChangeNotifier1.ExecuteA ction(????);
end;

[Stilet]

Так:

Form1.ShellChangeNotifier1.root:=ShellComboBox1.Path

[lexaltd]

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

Так:

Form1.ShellChangeNotifier1.root:=ShellComboBox1.Path

Если я делаю так :

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ShellChangeNotifier1.root:=Sh ellComboBox1.Path ;
end;

То при нажатиии на кнопку Button1 не чего не происходит.
Может я не так что делаю?

[Stilet]

То при нажатиии на кнопку Button1 не чего не происходит.

А что должно произойти?

[lexaltd]

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

А что должно произойти?

Я хотел чтоб при нажатии на кнопку выпадало диалоговое окно " ShellChangeNotifier " в нём можно было выбрать корневой каталог для " ShellComboBox"

[Stilet]

Ты амлет с помидором спутал. Тебе не ShellChangeNotifier нужен а:

Brings up a dialog to allow the user to enter a directory name.
Unit FileCtrl
Category
dialog and message routines

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

[lexaltd]

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

Ты амлет с помидором спутал. Тебе не ShellChangeNotifier нужен а:

Мне нужен именно ShellChangeNotifier
Мне надо выбрать один раз корневой каталог и при повторном запуске програмы программа сразу входила в этот коталог и если мне потребуется сменить коневой коталог , я нажал на кнопку и сменил .