Форум: "Начинающим";
Текущий архив: 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