использование переменных Dos Опции

[jan]

Как использовать переменные DOS, причем с возможностью обработать их (изменить, убрать лишнее) и загнать обратно в DOS?
Прошу помощи.

[Guest]

Так я уже НЕ собираюсь МЕНЯТЬ переменную а хочу запустить bat файл с параметром как я уже писал bat переменная, но то что написано у вас в примере не работает. В Вашем форуме на вопрос как запустить bat файл был ответ

Uses Dos;
var parth,comm:string;
begin
   comm:='/C'+'path'
 exec(Getenv('comspec'),comm);
end.

или что-то вроде того

[volvo]

Так я уже НЕ собираюсь МЕНЯТЬ переменную а хочу запустить bat файл с параметром

Правда? А вот это что?

а в bat стоит следующее set x=%1

Что это ПО-ВАШЕМУ должно сделать, кроме как поменять значение переменной окружения? Так вот учтите, что даже если Вам и удастся поменять это значение, действовать оно начнет ТОЛЬКО после перезагрузки...

то что написано у вас в примере не работает.

У Вас не работает, извините. У меня работает, да и остальные тоже запускали... Кстати, ТР Help выдает точно такой же фрагмент кода в качестве примера использования Exec (F1 еще никто не отменял)...

А вот насчет использования COMSPEC я бы не советовал им пользоваться, т.к. ОЧЕНЬ трудно будет обработать ошибки. Дело в том, что в этом случае будет рассматпиваться работа процессора COMMAND.COM, который запускает субпроцесс второго уровня, но в случае ошибки субпроцесса вызывающей программе ее код передан НЕ будет, вместо него будет передан код возврата самого COMMAND.COM, который, в принципе, сбоев-то не давал, и поэтому вне зависимости от результата вызывающая программа на Паскале получит "Нормальное завершение процесса"...

Но если хотите, то:

{$m 4096, 0, 0}
var s: string;
...
s := ... { заполняешь строку нужными тебе значениями,
 т.е. тем, что ты хочешь передать в bat файл }
swapvectors;
{ запускаешь COMMAND.COM с субпроцессом }
exec(getenv('COMSPEC'), '/c my_bat.bat ' + s);
swapvectors;
...