Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.18;
Скачать: 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 вся ветка

Текущий архив: 2002.02.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
1-57091
Брыкун Дмитрий
2002-02-02 10:01
2002.02.18
Как запустить чужое приложение?


1-57069
novomod
2002-01-31 14:24
2002.02.18
HELP. Алгоритм.


7-57234
REL
2001-11-09 11:37
2002.02.18
Логическая задачка (не могу справиться)


1-57099
greenrul
2002-01-20 09:19
2002.02.18
Глюки с картинками


14-57221
ProfiUgl
2001-12-27 16:07
2002.02.18
Откуда можно скачать Update Pack 1 для Delphi5 и ADO Express Update 1 и 2