Как сделать чтоб при нажатии кнопки открывалось видео с любого места?

[daniil4326]

Есть проблема,нужно чтоб при нажатии кнопки открывалось видео,стандартным плеером
Пробовал делать так
ShellExecute(Handle, nil, 'D:\video file.avi', nil, nil, SW_SHOW);
Но после того как я перенес например папку с видео в другое место,оно не открываеться
Помогите решить эту проблему
Слышал что можно както сделать с помощью функции GetDir, но в ней так и не разобрался

[BDA]

Чтобы открыть видео, нужно знать путь до него. Если Вы не знаете, где оно, то сначала придется его найти (все это мое имхо).

Stilet, вполне возможно, просто из поста непонятно, где видео находится: около программы или вообще где-то на диске.

[Stilet]

ShellExecute(Handle, 'open', 'video file.avi', pchar(ExtractFilePath(ParamStr(0))), nil, SW_SHOW);

не?

[daniil4326]

Понимаете,путь к файлу я указать могу
например он будет лежать на диске Д,я подробно укажу к нему путь,видео откроеться
Но если я эту папку перенесу на другой диск,код останеться тотже,и видео не откроеться

[raxp]

...тогда пусть ваша программа сканирует все диски на предмет наличия именно этого файла.

[Stilet]

...тогда пусть ваша программа сканирует все диски на предмет наличия именно этого файла.

А заодно и весь интернет, чтоб наверняка

[daniil4326]

Хорошо,но как это сделать?

[Stilet]

Хорошо,но как это сделать?

Ниче хорошего. У меня к примеру сервер с дисками на 20ТБ мелких файлов + твоя прога. Посчитай сколько времени нужно будет для сканирования такого обьема?

[Yurk@]

daniil4326, прикрути ты к своему ShellExecute еще и OpenDialog и бери с него новый путь и пихай в команду открытия

[daniil4326]

Как же тогда решить эту проблему?