procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);

var
   sFolder: string;

begin
OpenFile('c:\Documents and Settings\Фильм\VIDEO');
end;


begin

end.

Осталось перенести в свой проект
С помощью Дмитрия РЕШЕНО: ответ в теме "Решебник"

для этого есть функция OpenFile, она универсальна, может открыть как файл так и папку

OpenFile('c:\Films');

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   sFolder: string;
begin
     sFolder := 'с:\';
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end;


begin

end.

Открывает "Обзор папок". А как дописать, чтобы по процедуре увидеть именно содержимое указанной папки?

Я сделал для вас тестовый проект:

Если у вас последняя версия и все равно не открывает, пожалуйста, пришлите проект на support@drive-software.com
посмотрю в чем дело.

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   sFolder: string;
begin
     sFolder := 'c:\Documents and Settings';
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end;


begin

end.

обратите внимание на последние
begin

end.

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

А если бы ещё можно было и начальную папку задавать...

procedure Form1_Button8_OnClick (Sender: string; var Cancel: boolean);
var
   sFolder: string;
begin
     sFolder := 'd:\Films';
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end;

А у меня это почему-то не работает ???  Есть пустая Form1 с одной кнопкой Button1. Скрипт записал так:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);

var
   sFolder: string;

begin
     sFolder := 'c:\Documents and Settings';
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end.

Упорно пишет: ';' expected at 12:4  (12:4 - это после закрывающего "end")
Кнопка не функционирует, указанную папку не открывает.

А если бы ещё можно было и начальную папку задавать...

procedure Form1_Button8_OnClick (Sender: string; var Cancel: boolean);
var
   sFolder: string;
begin
     sFolder := 'd:\Films';
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end;

alex842
попробуйте без проверок, просто сделав так, думаю кавычки в любом случае не помешают

OpenFile('"' + file + '"',prog);

Действительно, так значительно проще.

Кстати, заметил, что функция "ExtractFilePath" два раза в скриптах отображена: в разделе Other и Files.

А если бы ещё можно было и начальную папку задавать...

1.

OpenFile('D:\Films');

2. Добавил новую функцию в бета версию 1.46, скачайте ее: https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0
SelectDirectory(const Caption: string; const Root: String; var Directory: string) : Boolean

procedure Form1_Button8_OnClick (Sender: string; var Cancel: boolean);
var
   sFolder: string;
begin
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end;

3. С этим пока сложней, постараюсь позже реализовать.

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

попробуйте так

var
prog,file:string;
begin
prog:= 'C:\Program Files (x86)\Windows NT\Accessories\wordpad.exe';
file:= '"D:\MailCloud\Программирование\My Visual Database\DistribCat\ReadMe.rtf"';
OpenFile(file,prog);

Проверил ещё раз это решение. Оно работает, если путь к файлу точно известен, а если надо использовать команды ExtractFilePath или ExtractFileDir, то ошибка опять появляется. Для того, чтобы этого избежать, я ввел проверку на наличие пробелов в пути. Финальный вариант процедуры такой:

procedure FrMain_Button2_OnClick (Sender: string; var Cancel: boolean);
var
  prog,file,path:string;
begin
  path:= ExtractFilePath(Application.ExeName); //получаем путь к папке
  prog:=path+'SoloPad.exe'; //получаем путь к программе, которая находится в папке с исполняемым файлом. 
  If Pos(' ', path) Then //проверяем наличие пробелов в пути
    file:= '"'+path+'ReadMe.rtf"' // если есть, то заключаем в кавычки
  else
    file:= path+'ReadMe.rtf'; // если нет, то ничего не делаем. 

  OpenFile(file,prog);
end;