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

[Sewell]

Доброго всем времени суток!

Как можно организовать открытие папки с содержащимся в нем произвольным файлом, что то на подобие как в Download Master - "Перейти к файлу", что открывается папка и выбранный файл становится активным, как буд-то на него нажали мышкой???

Вообще для перехода к папке или интернет ссылке юзаю ShellExecute:
ShellExecute(Handle,'explore','путь к папке',nil,nil,SW_RESTORE);

А вот как сделать аналогично, но чтобы открывалась папка с файлом, по известному пути и файлу типа:
ShellExecute(Handle,'explore','D:\V IDEO\Файл.avi',nil,nil,SW_RESTORE), но тут эта функция не катит...может есть у кого соображения по этому поводу?

Заранее спасибо...

[TilerDerton]

Если я правильно понял вопрос...
Кидаем на форму элемент Dialogs-->OpenDialog.
Далее, нп римере Edit`а:

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute; // вызвать окно для обзора папок
edit1.Text:=OpenDialog1.FileName; // получить выбранный путь
end;

[Andrei]

Функция ExtractFilePath('D:\VIDEO\Файл.avi' ) выдаст 'D:\VIDEO\', а функция ExtractFileDir('D:\VIDEO\Файл.avi') выдаст 'D:\VIDEO'.

Юзайте подходящую для определения пути к папке и вставляйте в свой ShellExecute.

[vovk]

я вот такое видел, у меня работало, да и работает.

ShellExecute(Handle, nil, 'explorer.exe', '/e, Путь к папке, /select, Имя файла', Путь к папке, SW_RESTORE)

[Пепел Феникса]

поправлю немного
открытие папки по пути файла(в Едите путь)

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(Handle,'explore',PChar(ExtractFilePath(Edit1.Text)),nil,nil,SW_RESTORE);
end;

Открытие с выбором файла(в Едите путь)

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShellExecute(Handle, nil, 'explorer.exe', PChar('/e, '+ExtractFileDir(Edit1.Text)+', /select, '+ExtractFileName(Edit1.Text)), PChar(ExtractFileDir(Edit1.Text)), SW_RESTORE)
end;

[Sewell]

Ребят, всем спасибо огромное!!! Все отлично работает!!!