Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Вниз

Параметры   Найти похожие ветки 

 
Spectre_s   (2005-10-31 13:53) [0]

Всем привет ! У меня такой вопрос Как можно в Delphi7 сделать прогу чтобы она запускалась с параметрами , с одним параметром она будет одной, с другим другой

*.exe -t - к примеру

Заранее спасиб


 
Dmitrij_K   (2005-10-31 13:59) [1]

что-то типа этого

 Application.Initialize;
 if (paramcount>0) and (paramstr(1)="-t") then
   Application.CreateForm(TForm1, Form1)
 else
   Application.CreateForm(TForm2, Form2)
 Application.Run;


 
Ольга   (2005-10-31 14:27) [2]

paramcount всегда > 0
paramstr(0) - название exe-шника


 
Dmitrij_K   (2005-10-31 14:37) [3]

2Ольга
вы не правы


 
Dmitrij_K   (2005-10-31 14:37) [4]

2Ольга
вы не правы


 
Digitman ©   (2005-10-31 15:30) [5]


> Dmitrij_K


On Windows, ParamStr(0) returns the path and file name of the executing program (for example, C:\TEST\MYPROG.EXE).


 
Leonid Troyanovsky ©   (2005-10-31 15:34) [6]


> Digitman ©   (31.10.05 15:30) [5]

> > Dmitrij_K


IMHO, тут нужна была ссылка на [4].
Потому, как [3] - верно.

--
Regards, LVT.


 
Кефир87 ©   (2005-10-31 23:27) [7]

paramstr(0) = Имя файла екзешника, но если параметров нет то paramcount = 0. Вот нет бы взять да проверить как это сделал я 8)


 
Spectre_s   (2005-11-02 16:05) [8]

Большое всем Спасибо ! :))


 
Spectre_s   (2005-11-02 16:08) [9]

Большое всем Спасибо ! :))



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

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

Наверх





Память: 0.45 MB
Время: 0.037 c
3-1128578227
jiny
2005-10-06 09:57
2005.11.20
Пробл. с объединением 4 таблиц


14-1130399289
boriskb
2005-10-27 11:48
2005.11.20
Ходорковский


2-1129281558
zsv
2005-10-14 13:19
2005.11.20
chm


5-1110291542
Sphinx
2005-03-08 17:19
2005.11.20
Можно ли опубликовать в наследнике функцию ?


2-1130842380
stud
2005-11-01 13:53
2005.11.20
запуск нескольких программ в консоли





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