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

Вниз

запуск программы   Найти похожие ветки 

 
susergey   (2006-11-24 12:26) [0]

Уважаемые Мастера! Помогите разобраться с вопросом. Как организовать проверку запущена ли программа с ключами командной строки или нет? Например, путь\test.exe /s или просто путь\test.exe. В зависимости от значения ключа становятся доступны различные действия


 
Сергей М. ©   (2006-11-24 12:31) [1]

Если ParamCount > 1, то в ком.строке присутствует как минимум один параметр.
Ключ это или не ключ - это определяется индивидуально анализом элементов ком.строки (см. ParamStr)


 
zdm ©   (2006-11-24 12:33) [2]

если имя окна проги уникально то можно FindWndow использовать


 
zdm ©   (2006-11-24 12:35) [3]

точнее не имя, а caption


 
Сергей М. ©   (2006-11-24 12:36) [4]


> zdm ©   (24.11.06 12:33) [2]


imho, "или нет" в дан.случае означает "запущена, но без ключей".


 
zdm ©   (2006-11-24 12:37) [5]

Прошу прощения, не допонял вопрос. Тогда [1]


 
susergey   (2006-11-24 13:31) [6]

Все правильно, только пример из помощи


procedure TForm1.FormCreate(Sender: TObject);

var
 i: Integer;
 for i := 1 to ParamCount do
 begin
   if LowerCase(ParamStr(i)) = "beep" then
     Beep
   else if LowerCase(ParamStr(i)) = "exit" then
     Application.Terminate;
 end;
end;

у меня не пошел


 
Elen ©   (2006-11-24 13:35) [7]


> у меня не пошел

Что значит не пошел? Дебугом проверь!


 
susergey   (2006-11-24 13:40) [8]

Вот ошибки
[Ошибка] Unit1.pas(29): Declaration expected but "FOR" found
 [Ошибка] Unit1.pas(36): "." expected but ";" found


 
Сергей М. ©   (2006-11-24 13:48) [9]

Ну а головой подумать ?)

Нельзя же бездумно передирать все что ни попадя ...

Хотя бы проверь содранное на признак соответствия Паскаль-соглашениям ...


 
Сергей М. ©   (2006-11-24 13:49) [10]

Ребята из Борланда спешили доставить тебе удовольствие и забыли в примере begin


 
click   (2006-11-24 13:49) [11]


> var  i: Integer;
begin
> for i := 1 to ParamCount do


 
Anatoly Podgoretsky ©   (2006-11-24 13:58) [12]

> Сергей М.  (24.11.2006 13:49:10)  [10]

Ну так это же пример и копировать без головы не стоит, просто надо учитывать, хотя бы ошибки в примере и определенну упрощенность.


 
click   (2006-11-24 14:17) [13]


> Anatoly Podgoretsky ©   (24.11.06 13:58) [12]

У меня под рукой "среды" нет чтоб проверить.... но я что-то сомневаюсь что там такая ошибка имеет место быть....
кто-нибудь смотрел?


 
Anatoly Podgoretsky ©   (2006-11-24 14:41) [14]

> click  (24.11.2006 14:17:13)  [13]

Выписка из справки

procedure TForm1.FormCreate(Sender: TObject);

var
 i: Integer;
 for i := 1 to ParamCount do
 begin


 
click   (2006-11-24 14:52) [15]


> Anatoly Podgoretsky ©   (24.11.06 14:41) [14]

ну тогда это хороший пример отрицательного влияния copy-paste....


 
Anatoly Podgoretsky ©   (2006-11-24 15:09) [16]

> click  (24.11.2006 14:52:15)  [15]

copy-paste - это абсолютное зло, по себе знаю.



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

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

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1163951411
Alians
2006-11-19 18:50
2006.12.10
RasEnumEntriesA


2-1164214839
Галинка
2006-11-22 20:00
2006.12.10
"Резинка" в c#


2-1164284169
windows
2006-11-23 15:16
2006.12.10
что значит эта запись platform;?


15-1164028015
Виталий Панасенко
2006-11-20 16:06
2006.12.10
Относительно ECO


8-1145904682
Pojarnik
2006-04-24 22:51
2006.12.10
Отлов WM_CAP... сообщений





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