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

Вниз

Создание приложения, понимающего   Найти похожие ветки 

 
Zorlag   (2003-12-16 18:32) [0]

Уважаемые программисты!! Мне необходимо создать приложение, которое могло бы реагировать на "ключи" (например как запуск программы chkdsk с ключом /F)
Только в моем случае при запуске без ключа программа должна скрытно -- не появляясь перед пользователем завершить свою работу и прописать только сообщение -- типа "работа программы успешно завершена, а при работе с ключом ( например /show)программа должна показать свое окно и дать пользователю возможность выбрать необходимые настройки.
Помогите пожалуйста!! Мне очень нужен Ваш совет!!


 
pasha_golub   (2003-12-16 18:33) [1]

ParamStr+ParamCount+F1


 
Zorlag   (2003-12-16 18:36) [2]

?


 
Тимохов   (2003-12-16 18:40) [3]

что "?"
Поясняю:
В формумах принято отвечать так - строка, которую надо набрать в редакторе и f1, кнопка, которую надо нажать, чтобы почитать текст справки, который должне появиться.


 
TUser   (2003-12-16 20:34) [4]

Paramstr - переданные проге параметры
Paramstr[1] - первый параметр
ParamCount - их количество


 
Anatoly Podgoretsky   (2003-12-16 20:40) [5]

Дельфи не понимет ? надо именно F1 нажимать.


 
Vovichus   (2003-12-16 20:58) [6]

Ладно, напишу сам, поделюсь... :)


 
Zorlag   (2003-12-16 21:48) [7]

Vovichus, спасибо, буду ждать! :-)


 
Плохиш_   (2003-12-17 01:09) [8]


> Zorlag © (16.12.03 21:48) [7]
> Vovichus, спасибо, буду ждать! :-)

Да, измелчал народ :-( и чем дальше, тем хуже :-(


 
Кот Бегемот   (2003-12-17 09:36) [9]

>Vovichus © (16.12.03 20:58) [6]
>Ладно, напишу сам, поделюсь... :)

Ты пиши-пиши, не торопись - серьезный проект все-таки !!!


 
Kvorubin   (2003-12-17 10:40) [10]

procedure TForm1.FormShow(Sender: TObject); var i: Integer;
begin
for i := 0 to ParamCount + 1 do begin
if ParamStr(i) = "/beep" then begin showmessage("Beep"); form1.Width:=300; form1.Height:=300; end;
if ParamStr(i) = "/exit" then begin showmessage("OK"); close; end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject); begin form1.Width:=0; form1.Height:=0; end; end.

самый простой вариант ^^^
С этим ты сможешь зделать усё что угодно..
Есть одна неувязочка, форма всё-же маргает перед закрытием,
поэтому лучше обнулить её размеры и желательно обзавестись
второй формой на которую перекинешь прошку,
а первая будет диалоговым окном
которое будет решать открыть или не открыть программу,
если допустим будет добавлен /ключ, то на первой форме
приветсвия появится приглашение в программку.

В справках Дельфей так не описывают командочки.. :)


 
Плохиш_   (2003-12-17 10:45) [11]

>Kvorubin © (17.12.03 10:40) [10]

> В справках Дельфей так не описывают командочки.. :)

Справка и не служит для разжёвывания ;-) она подразумевает, что у читающего имеется достаточмое количество серого вещества



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

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

Наверх





Память: 0.46 MB
Время: 0.009 c
8-99654
SnikerS
2003-08-26 16:37
2003.12.30
25 кадр


6-99692
leonidus
2003-10-09 22:28
2003.12.30
Вопрос по idHTTP


14-99736
Вадим
2003-12-08 03:07
2003.12.30
В очередной раз накрылся форум?


3-99461
Sergey2000
2003-12-05 14:16
2003.12.30
Создание отчётов


3-99469
konst_bsh
2003-12-05 09:04
2003.12.30
Да, плачевная ситуация с компонентами FIBPlus.





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