Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.031 c