Программа-эксплорер

Колядин Максим · 01 фев 2007, 15:09

Требуется - создать программу, которая по введёноому с клавиатуры Dir (Var Dir: string) откроет каталог на локальном диске.
_____________________________

То есть, вводишь директорию папки, нажимаешь Enter, - папка открывется - программа закрывается!
Спасибо!!

Duncon · 01 фев 2007, 16:40

И че сложного в Edit вводится текст потом при нажатии на баттон он же и передаеться в функцию..

Лелик_1044 · 01 фев 2007, 18:29

unit
shellapi (по-моему так)

там смтори

Колядин Максим · 01 фев 2007, 20:52

Забыл сказать, что на ПАСКАЛЕ.

Колядин Максим · 01 фев 2007, 20:53

unit
shellapi (по-моему так)

там смтори

Это разве паскаль-команды? Или Delphi

Колядин Максим · 02 фев 2007, 00:15

Блин! Вы не знаете, почему у меня функция ParamStr(1) бросила показывать путь к коталогу (папке). Была программа (см ниже), а теперь она почему-то не работает...

Код: Выделить всё

uses dos;
var f: file;
assign(f, ParamStr(1));       { применяется к ПАПКЕ, а не к файлу}
setFattr(f, Archive);
end.

Раньше, программа ставила папке атрибут "архивный" а сейчас - нет. Я не знаю, что я там изменял, но прога не работает. Дело в том, что параметр ParamStr(1) бросил принимать какие-либо значения (paramStr=''). В чём ошибка? Заранее, спасибо за помощь!

Лелик_1044 · 02 фев 2007, 11:10

А чего ты удивляешся?
Ты жене сказал что на паскале
Это юнит для дельфи

somewhere · 02 фев 2007, 11:23

&quot писал(а):ParamStr(1) бросил принимать какие-либо значения (paramStr=''). В чём ошибка?

Run\Parameters решит все проблемы

&quot писал(а):Ты жене сказал что на паскале

Порой опечатки сильно меняют суть сказанного :-)

Колядин Максим · 02 фев 2007, 15:24

Сообщение от Somewhere

Run\Parameters решит все проблемы

А что там вводить надо? Напомню, мне надо чтобы программа ставила папке атрибут "архивный" через ParamStr(1)..

somewhere · 02 фев 2007, 15:34

&quot писал(а):А что там вводить надо? Напомню, мне надо чтобы программа ставила папке атрибут "архивный" через ParamStr(1)..

Ну вы блин даете :-) ParamStr(1) с неба не свалиться, вот в Run\Parameters он и вводится