Скачать: CL | DM;

Приветствую!!! Помогите!!!   Найти похожие ветки 

← →
KvORubin ©   (2002-02-02 20:20) [0]

Каким образом я могу открыть свою программу ярлыком с таким-то параметром, точнее как моя программа может принемать запуск с параметрами, например TheBat может запуститься с таким
ключом. Вопрос: каким образом программа примет этот ключ ???
("E:\...\THE BAT! 1.53D\THEBAT.EXE" /nologo /o:"%1").

---

← →
Petrovich ©   (2002-02-02 22:37) [1]

Есть такая весчь как ParamStr[0] в скобках задается номер строки параметра. Параметры разделяются запятыми.

---

← →
~Sergius   (2002-02-03 07:11) [2]

2 Petrovich
С каких это пор они разделяются запятыми?!
Параметры к в Вин так и Дос разделяются пробелами.
И не ParamStr[0], а ParamStr(0) ;-)

---

← →
~Sergius   (2002-02-03 07:13) [3]

точнее, не пробелами, пробелами и табуляторами (допускается несколько разделителей подряд)

---

← →
Petrovich ©   (2002-02-03 08:15) [4]

Извиняюсь тормознул. Конечно пробелами. Это сказывается напряжение перед самым трудным экзаменом. 8-)

---

← →
KvORubin ©   (2002-02-03 09:59) [5]

Канечно спосибо за совет, но вы так и не объяснили толком,
По простому я так понял: ParamStr(memo1.lines[0]),, где первая линия содержит ключ, а потом задаёш вопрос if ParamStr=123 then... или же напишите PLZ свой пример (я начинающий, поэтому несовсем понимаю с одного слова).

---

← →
panov ©   (2002-02-03 10:21) [6]

>KvORubin © (03.02.02 09:59)
Причем здесь TMemo ?
При загрузке программы в командной строке вводятся параметры через пробелы.
В свой программе, например в обработчике события Form1.OnCreate пишешь:
var
param: String;
for index:= 1 to ParamCount-1 do
begin
param := ParamStr(index);
... //обрабатываешь последовательно все параметры
end;

---

← →
KvORubin ©   (2002-02-03 12:34) [7]

Большое Вам всем спасибо!!! я ужо сам допёр, пока читал первые ответы. вот смотрите:


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


ТЕМА ЗАКРЫТА!!!

---

← →
Anatoly Podgoretsky ©   (2002-02-03 12:42) [8]

panov © (03.02.02 10:21)
... //обрабатываешь последовательно все параметры

Кроме последнего :-)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c