Тема
:
OpenDialog
Показать сообщение отдельно
#
3
16.07.2007, 14:21
<<D>>
Активный
Регистрация: 06.05.2007
Адрес: ГДЕ ТО В СОЛНЕЧНОЙ СИСТЕМЕ
Сообщения: 207
Репутация:
15
Может быть, я ошибаюсь, но, по-моему, так легче:
Uses ...FileCtrl;
...
var
S: string;
begin
S := '';
if SelectDirectory('Select Directory', '', S) then
path:=s;
end;
__________________
Кому я должен - всем прощаю!!!!
<<D>>
Посмотреть профиль
Отправить персональное сообщение для <<D>>
Отправить Email для <<D>>
Посетить домашнюю страницу <<D>>
Найти все сообщения от <<D>>