обзор папок

[Черничный]

нащет unita пишет: FileCtrl is спесифик ту э платформ

[eoln]

Ничего страшного... так должно быть.
У людей в домах тоже мебель разная, но сидеть то везде можно )

[Черничный]

ничего то страшного, но не рабоатет этот кусочек кода

[eoln]

Покажи код - посмотрим в чём дело.
Вот этот участок работает - проверено

if (SelectDirectory('Выберите папку...','',st)) then
application.MessageBox(pchar(st),'',0);

[alexmif]

var
path1: string;

path1:=ExtractFilePath(OpenDialog1. FileName);
и не нужно огород городить.
Собственно функция из строки вытаскивает путь до последнего слеша.

Вот описание функции:
ExtractFilePath( const FileName: string):string
Возвращает путь к каталогу (включая указание диска и слэш перед именем файла), вырезанный из строки с полным именем файла FileName.

Кому нужно могу хелп с примерами на русском отправить. delphi 5 и паскаль. Пишите на мыло.