 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Меню, Запуск программы с параметрами 
| RTV |
|
|||
 Шустрый  Профиль Группа: Участник Сообщений: 53 Регистрация: 11.4.2006 Где: Днепропетровск Репутация: нет Всего: нет |
Добрый вечер! подскажите пожайлуста каким образом можно запустить программу с параметром, так что бы в меню появлялся дополнительное меню.
Например Выполняем программу Zakaz.exe -S или - setup, ну что то типа того. При открытии появлятся скрытое меню "Особые установки". и т.д. если можно покажите пример.  |
|||
|
||||
Загрузка ...
| _hunter |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
ParamStr(1) (или второй -- не помню я ваших (делфийских) приколов) и смотри -S он или нет (или по всем пройдись (ParamCount()) в поисках нужного
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| x77 |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 1255 Регистрация: 25.3.2002 Репутация: 19 Всего: 22 |
меню проектируется как обычно и целиком. далее, у меню "Особые установки" будет некий итем, на котором всё это меню висит. у этого итема есть удивительное свойство Visible. знающие люди говорят, что его можно попробовать поставить в FALSE
 а проверку - как сказал _hunter. в Form1.OnCreate прописать что-то типа MySecretItem.Visible := (AnsiUpperCase (ParamsStr (1)) = '-S'); -------------------- Я никогда не сопротивлялся искушению, поскольку узнал: что мне не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия) |
|||
|
||||
| Sunvas |
|
|||
 Соль и сахар Профиль Группа: Участник Сообщений: 3388 Регистрация: 12.3.2006 Где: Тосно Репутация: 28 Всего: 89 |
А если ты зачочешь, чтобы параметров было много, то тогда придется еще фор заводить от 1 до paramcount, и в нем обрабатывать paramstr(n) для каждого параметра.
-------------------- Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их. |
|||
|
||||
| AKN |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 97 Регистрация: 11.11.2005 Репутация: нет Всего: нет |
Все правильно, в ParamStr(1) висит твой параметр в виде строки. Дальше ты можешь проверить его на то, что в параметре действительно указан -s и сделать видимым (нивидимым) некий итем в менюшке или другие действия.
|
|||
|
||||
| RTV |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 53 Регистрация: 11.4.2006 Где: Днепропетровск Репутация: нет Всего: нет |
Делаю так
parametr:=ParamStr(1); if UpperCase(parametr) = 'as' then MainMenu1.Items.Items[4].Visible:=True; не работает Делаю так parametr:=ParamStr(1); if UpperCase(parametr) = '123' then MainMenu1.Items.Items[4].Visible:=True; работает Почему??? |
|||
|
||||
| x77 |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 1255 Регистрация: 25.3.2002 Репутация: 19 Всего: 22 |
возможно потому, что UpperCase работает только с 7-ми битной кодировкой. попробуй всё-таки AnsiUpperCase.
-------------------- Я никогда не сопротивлялся искушению, поскольку узнал: что мне не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия) |
|||
|
||||
| Демо |
|
|||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 1278 Регистрация: 3.11.2005 Репутация: 30 Всего: 50 |
А ты отладчиком пройди. Тогда увидишь, что ты сравниваешь - первую строку, преобразованную в верхний регистр со строкой в нижнем регистре. -------------------- |
|||
|
||||
| x77 |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 1255 Регистрация: 25.3.2002 Репутация: 19 Всего: 22 |
точно
слона-то я и не заметил. -------------------- Я никогда не сопротивлялся искушению, поскольку узнал: что мне не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия) |
|||
|
||||
| RTV |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 53 Регистрация: 11.4.2006 Где: Днепропетровск Репутация: нет Всего: нет |
Все работатет с AnsiLowerCase
Всем огромное спасибо.  |
|||
|
||||
| Sunvas |
|
|||
|
Соль и сахар Профиль Группа: Участник Сообщений: 3388 Регистрация: 12.3.2006 Где: Тосно Репутация: 28 Всего: 89 |
Разве цифры имеют регистр (верхний/нижний)?  -------------------- Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их. |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0531 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |