Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Приветствую!!! Помогите!!! 


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)
... //обрабатываешь последовательно все параметры

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.014 c
4-57264           vovan1                2001-12-20 15:09  2002.02.18  
CopyFile_ in_Win95


1-57104           Dima Kopachev         2002-02-02 17:10  2002.02.18  
Функция ChangeFileExt


1-57089           HDD                   2002-02-01 14:24  2002.02.18  
Люди добрые поскажите!


14-57200          Nest                  2001-11-08 10:06  2002.02.18  
Нужен бланк(Экспорт платёжного поручения из 1С в Excel.)


1-57073           Злой_Гном             2002-02-01 18:23  2002.02.18  
Все, про ProgressBar дотумкал :-)))