Страница 1 из 3
Программа-эксплорер
Добавлено: 01 фев 2007, 15:09
Колядин Максим
Требуется - создать программу, которая по введёноому с клавиатуры Dir (Var Dir: string) откроет каталог на локальном диске.
_____________________________
То есть, вводишь директорию папки, нажимаешь Enter, - папка открывется - программа закрывается!
Спасибо!!
Re: Программа-эксплорер
Добавлено: 01 фев 2007, 16:40
Duncon
И че сложного в Edit вводится текст потом при нажатии на баттон он же и передаеться в функцию..
Re: Программа-эксплорер
Добавлено: 01 фев 2007, 18:29
Лелик_1044
unit
shellapi (по-моему так)
там смтори
Re: Программа-эксплорер
Добавлено: 01 фев 2007, 20:52
Колядин Максим
Забыл сказать, что на ПАСКАЛЕ.
Re: Программа-эксплорер
Добавлено: 01 фев 2007, 20:53
Колядин Максим
unit
shellapi (по-моему так)
там смтори
Это разве паскаль-команды? Или Delphi
Re: Программа-эксплорер
Добавлено: 02 фев 2007, 00:15
Колядин Максим
Блин! Вы не знаете, почему у меня функция
ParamStr(1) бросила показывать путь к коталогу (папке). Была программа (см ниже), а теперь она почему-то не работает...
Код: Выделить всё
uses dos;
var f: file;
assign(f, ParamStr(1)); { применяется к ПАПКЕ, а не к файлу}
setFattr(f, Archive);
end.
Раньше, программа ставила папке атрибут "архивный" а сейчас - нет. Я не знаю, что я там изменял, но прога не работает. Дело в том, что
параметр ParamStr(1) бросил принимать какие-либо значения (paramStr=''). В чём ошибка? Заранее, спасибо за помощь!
Re: Программа-эксплорер
Добавлено: 02 фев 2007, 11:10
Лелик_1044
А чего ты удивляешся?
Ты жене сказал что на паскале
Это юнит для дельфи
Re: Программа-эксплорер
Добавлено: 02 фев 2007, 11:23
somewhere
" писал(а):ParamStr(1) бросил принимать какие-либо значения (paramStr=''). В чём ошибка?
Run\Parameters решит все проблемы
" писал(а):Ты жене сказал что на паскале
Порой опечатки сильно меняют суть сказанного :-)
Re: Программа-эксплорер
Добавлено: 02 фев 2007, 15:24
Колядин Максим
Сообщение от Somewhere
Run\Parameters решит все проблемы
А что там вводить надо? Напомню, мне надо чтобы программа ставила папке атрибут "архивный" через ParamStr(1)..
Re: Программа-эксплорер
Добавлено: 02 фев 2007, 15:34
somewhere
" писал(а):А что там вводить надо? Напомню, мне надо чтобы программа ставила папке атрибут "архивный" через ParamStr(1)..
Ну вы блин даете :-) ParamStr(1) с неба не свалиться, вот в Run\Parameters он и вводится