Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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)
... //обрабатываешь последовательно все параметры

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



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

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

Наверх




Память: 0.45 MB
Время: 0.004 c
7-57226
amamed_3071
2001-11-12 11:30
2002.02.18
Команды принтера Epson


14-57218
Knyaz17
2001-12-13 10:38
2002.02.18
Чем отличается MS-SQL 7.0 и MS-SQL 2000?


1-57062
nikols
2002-02-01 16:34
2002.02.18
Какой тип у редактора свойства Expression компонента TQRExpr?


6-57163
valiev
2001-11-28 14:49
2002.02.18
Как в Дельфи использовать метод POST


14-57206
Himler
2001-12-27 22:15
2002.02.18
Как вы зарабатывали когда были студентом?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский