Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

кш © (2004-08-09 20:57:00)
приведите небольшой пример!!!

Mim1 (2004-08-09 22:04:00) [1]

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

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

KOMbI4 (2004-08-09 22:01:00) [2]
Можешь сохранить свои комманды в BAT файл, а затем просто запустить его с параметром SW_HIDE

Андрей Сенченко (2004-08-09 21:46:00) [3]
разбор кода [1]. Пока база архивируется

var i: Integer; // переменная-счетчик для цикла перебора переданных параметров begin for i := 1 to ParamCountdo // запускаем цикл перебора параметров от 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

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

begin...end (2004-08-09 21:39:00) [4]

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

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

?

YurikGL (2004-08-09 21:28:00) [5]
Пуск\программы\стандартные\коммандная строка+enter и будет тебе счастье :)

Андрей Сенченко (2004-08-09 21:28:00) [6]
Ежели бы человек писал по-человечески, помогли бы ...

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

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

кш (2004-08-09 21:25:00) [7]
мастера-а-а-а-а-а-а-а-а-а-а-а-а-а-а-а-а-а-!!!!!
а помочь человеку не могут!!!
Запущено!!!

кш (2004-08-09 21:12:00) [8]
Удалено модератором

Fay (2004-08-09 21:12:00) [9]
2 кш (09.08.04 21:10) [4]
Ответы читаем?

кш (2004-08-09 21:10:00) [10]
имеется в виду выполнение, например, программы с параметрами, format /q или что-то в этом роде

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

Sergey Masloff (2004-08-09 21:03:00) [12]
Может это имеется в виду?
ShellExecute(0,'open','cmd.exe',nil,nil,SW_SHOW);

Fay (2004-08-09 20:58:00) [13]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »