Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Вниз
мастера!!! помогите!!! как выполнить команду командной строки, Найти похожие ветки
← →
кш (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 и будет тебе щщщщщщщщщщщщщщщщастье
← →
begin...end © (2004-08-09 21:39) [10]
> [7] кш (09.08.04 21:25)
Не ори.
Что тебе нужно:
1. Твою программу запускают из командной строки с некоторым параметром.
Например: LamerProg.exe kill_lamer. Нужно узнать параметр, с которым её запустили, т.е. kill_lamer.
2. В командной строке ОС выполнить какую-то команду.
Например: format c:
?
← →
Андрей Сенченко © (2004-08-09 21:46) [11]разбор кода [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
приведет к единократному писку динамика и завершению работы
← →
KOMbI4 © (2004-08-09 22:01) [12]Можешь сохранить свои комманды в BAT файл, а затем просто запустить его с параметром SW_HIDE
← →
Mim1 © (2004-08-09 22:04) [13]
> [7] кш (09.08.04 21:25)
Нисколько не запущено. Не хотят.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.033 c