Главная страница
    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.46 MB
Время: 0.005 c
4-57253
GOSHAT
2001-12-19 01:18
2002.02.18
DELPHI, WIN API


1-57137
Иля
2002-02-03 13:39
2002.02.18
Automation objec


14-57196
programmer1
2001-12-27 19:25
2002.02.18
Динамическая подгрузка dll библиотеки


4-57239
john_ru
2001-12-18 03:33
2002.02.18
WIN API32


1-57076
DenK_vrtz
2002-02-01 13:33
2002.02.18
Вопросик про Create формы





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский