Главная страница
    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.04 c
4-1154078564
leonidus
2006-07-28 13:22
2006.12.10
Работа с Shell_NotifyIcon


2-1164211676
lobach
2006-11-22 19:07
2006.12.10
Как очистить ValueListEditor?


9-1139671686
VolanD666
2006-02-11 18:28
2006.12.10
Общая матрица поворота...


2-1164549497
AHTOLLlKA
2006-11-26 16:58
2006.12.10
Изменить ресурсы


2-1164052259
c0rben
2006-11-20 22:50
2006.12.10
Вопрос по компоненту TListBox





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