ShellTreeView

← →
0utsider © (2003-05-23 11:39) [0]

У меня есть три принципиальных вопроса :)
Для вывода директорий (аля проводник) я использую ShellTreeView.
1) Как мне передать туда относительный путь Т.е. если есть путь к чему-либо относительно папки, в которой расположена моя программа, как мне сделать так, чтобы в ShellTreeView открылась папка с этим чем-либо ... мда... вообще вы меня,наверно, поняли ...
2)Как сделать так, чтобы при изменении путя (или пути %) закрывалась текущая папка в ShellTreeView.
3) КАК мне зациклить MediaPlayer ??? У меня на этот счет были глобальные планы... типа расчитать время клипа, сделать задержку, потом снова play и все в таком же духе ... Вообще-то как-то последний кадр определяется, да ?
Заранее спасибо

← →
Dmitry_Bondarev (2003-05-28 14:45) [1]

procedure TForm3.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if copy(ShellTreeView1.Path,length(ShellTreeView1.Path),1)<>"\" then
//DirOut - TEdit
DirOut.Text:=ShellTreeView1.Path+"\"
else
DirOut.Text:=ShellTreeView1.Path;
ShellTreeView1.Visible:=False;
end;

procedure TForm3.FormCreate(Sender: TObject);
var PathProgram:string;
begin
PathProgram:=GetCurrentDir;
ShellTreeView1.Path:=PathProgram;
end;

Это ответ на первый и второй вопрос!

Спасибо большое ! :)

ShellTreeView Найти похожие ветки