Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

запуск программы [D7, XP]

susergey © (2006-11-24 12:26:00)
Уважаемые Мастера! Помогите разобраться с вопросом. Как организовать проверку запущена ли программа с ключами командной строки или нет? Например, путь\test.exe /s или просто путь\test.exe. В зависимости от значения ключа становятся доступны различные действия

Anatoly Podgoretsky (2006-11-24 15:09:00) [1]
> click (24.11.2006 14:52:15) [15]

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

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

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

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

Anatoly Podgoretsky (2006-11-24 14:41:00) [3]
> 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:17:00) [4]

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

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

Anatoly Podgoretsky (2006-11-24 13:58:00) [5]
> Сергей М. (24.11.2006 13:49:10) [10]

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

Сергей М. (2006-11-24 13:49:00) [6]
Ребята из Борланда спешили доставить тебе удовольствие и забыли в примере begin

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

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

Сергей М. (2006-11-24 13:48:00) [8]
Ну а головой подумать ?)

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

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

susergey (2006-11-24 13:40:00) [9]
Вот ошибки
[Ошибка] Unit1.pas(29): Declaration expected but 'FOR' found
[Ошибка] Unit1.pas(36): '.' expected but ';' found

Elen (2006-11-24 13:35:00) [10]

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

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

susergey (2006-11-24 13:31:00) [11]
Все правильно, только пример из помощи

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;
у меня не пошел

zdm (2006-11-24 12:37:00) [12]
Прошу прощения, не допонял вопрос. Тогда [1]

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

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

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

zdm (2006-11-24 12:35:00) [14]
точнее не имя, а caption

zdm (2006-11-24 12:33:00) [15]
если имя окна проги уникально то можно FindWndow использовать

Сергей М. (2006-11-24 12:31:00) [16]
Если ParamCount > 1, то в ком.строке присутствует как минимум один параметр.
Ключ это или не ключ - это определяется индивидуально анализом элементов ком.строки (см. ParamStr)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »