мастера!!! помогите!!! как выполнить команду командной строки,

← →
кш (2004-08-09 20:57) [0]

приведите небольшой пример!!!

← →
Fay © (2004-08-09 20:58) [1]

The following example beeps once for each “beep” passed in on the command line. The example terminates the application if “exit” is passed in on the command line.

procedure TForm1.FormCreate(Sender: TObject);

var
i: Integer;
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = "beep" then
Beep
else if LowerCase(ParamStr(i)) = "exit" then
Application.Terminate;
end;
end;

← →
Sergey Masloff (2004-08-09 21:03) [2]

Может это имеется в виду?
ShellExecute(0,"open","cmd.exe",nil,nil,SW_SHOW);

← →
Fay © (2004-08-09 21:06) [3]

2 Sergey Masloff (09.08.04 21:03) [2]
>> Может это имеется в виду?
Да БГ его знает 8) Мне, честно говоря, пофинг.

← →
кш (2004-08-09 21:10) [4]

имеется в виду выполнение, например, программы с параметрами, format /q или что-то в этом роде

← →
кш (2004-08-09 21:12) [5]

Удалено модератором

← →
Fay © (2004-08-09 21:12) [6]

2 кш (09.08.04 21:10) [4]
Ответы читаем?

← →
кш (2004-08-09 21:25) [7]

мастера-а-а-а-а-а-а-а-а-а-а-а-а-а-а-а-а-а-!!!!!
а помочь человеку не могут!!!
Запущено!!!

← →
YurikGL © (2004-08-09 21:28) [8]

Пуск\программы\стандартные\коммандная строка+enter и будет тебе счастье :)

← →
Андрей Сенченко © (2004-08-09 21:28) [9]

Ежели бы человек писал по-человечески, помогли бы ...

учись корректно задавать вопросы, а то скажешь, что нужно узнать где дно колодца - туда и кинут.

paramcount, paramstr(), F1 и будет тебе щщщщщщщщщщщщщщщщастье

> [7] кш (09.08.04 21:25)

Не ори.
Что тебе нужно:
1. Твою программу запускают из командной строки с некоторым параметром.
Например: LamerProg.exe kill_lamer. Нужно узнать параметр, с которым её запустили, т.е. kill_lamer.
2. В командной строке ОС выполнить какую-то команду.
Например: format c:

?

разбор кода [1]. Пока база архивируется

var i: Integer; // переменная-счетчик для цикла перебора переданных параметров begin for i := 1 to ParamCount do // запускаем цикл перебора параметров от 1-го до их общего кол-ва // например при запуске format c: /s ParamCount равен 2 begin if LowerCase(ParamStr(i)) = "beep" then Beep // проверяем значение i-го параметра и если оно равно "beep"- // пищи динамиком Твоего системного блока else if LowerCase(ParamStr(i)) = "exit" then Application.Terminate; // если же этот самый параметр равен "exit" - завершаем работу end; end;

таким образом запуск этой программы вот в таком виде

MySuperProg.exe beep exit

приведет к единократному писку динамика и завершению работы

Можешь сохранить свои комманды в BAT файл, а затем просто запустить его с параметром SW_HIDE

> [7] кш (09.08.04 21:25)

Нисколько не запущено. Не хотят.

мастера!!! помогите!!! как выполнить команду командной строки, Найти похожие ветки