Создание программ с ключами например myprog.exe /a

463

07 июля 2003 года

178 / / 17.01.2003

Цитата:

Originally posted by Cepgei
Как создать программу с ключами?
т.е. если в коммандной строке пишешь myprog.exe /a (myprog.exe -a) - выполняется одно действие, myprog.exe /b (myprog.exe - другое действие.
Нигде ни одного примера не нашел.

в классе TApplication есть свойство типа AppName или что-то вроде того. так вот, в нем хранится строка вызова проги. можешь сделать ее разбор на предмет параметров. ручками

Цитировать

0 спам

423

07 июля 2003 года

Quasi

98 / / 20.01.2000

Цитата:

Originally posted by Cepgei
Как создать программу с ключами?
т.е. если в коммандной строке пишешь myprog.exe /a (myprog.exe -a) - выполняется одно действие, myprog.exe /b (myprog.exe - другое действие.
Нигде ни одного примера не нашел.

используй ParamCount и ParamStr

Цитировать

0 спам

2.4K

07 июля 2003 года

Cepgei

26 / / 07.07.2003

Цитата:

Originally posted by Quasi

используй ParamCount и ParamStr

СПАСИБО:!!!:

Я реализовал это следующим образом:

[FONT=courier new]procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := [COLOR=blue]1[/COLOR] to ParamCount do
begin
if (LowerCase(ParamStr(i)) = [COLOR=blue]'beep'[/COLOR]) or (LowerCase(ParamStr(i)) = [COLOR=blue]'/beep'[/COLOR])
or (LowerCase(ParamStr(i)) = [COLOR=blue]'-beep'[/COLOR]) then
Beep
else if (LowerCase(ParamStr(i)) = [COLOR=blue]'exit'[/COLOR]) or (LowerCase(ParamStr(i)) = [COLOR=blue]'/exit'[/COLOR])
or (LowerCase(ParamStr(i)) = [COLOR=blue]'-exit'[/COLOR]) then
Application.Terminate;
end;
end;[/FONT]

Если кто-нибудь тоже столкнулся с этой проблемой то прилагаю исходник.
Осокин Сергей Владимирович. 07.08.2003

Цитировать

0 спам

2.4K

07 июля 2003 года

Cepgei

26 / / 07.07.2003

Цитата:

Originally posted by Quasi

используй ParamCount и ParamStr

СПАСИБО:!!!:

Я реализовал это следующим образом:

[FONT=courier new]procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := [COLOR=blue]1[/COLOR] to ParamCount do
begin
if (LowerCase(ParamStr(i)) = [COLOR=blue]'beep'[/COLOR]) or (LowerCase(ParamStr(i)) = [COLOR=blue]'/beep'[/COLOR])
or (LowerCase(ParamStr(i)) = [COLOR=blue]'-beep'[/COLOR]) then
Beep
else if (LowerCase(ParamStr(i)) = [COLOR=blue]'exit'[/COLOR]) or (LowerCase(ParamStr(i)) = [COLOR=blue]'/exit'[/COLOR])
or (LowerCase(ParamStr(i)) = [COLOR=blue]'-exit'[/COLOR]) then
Application.Terminate;
end;
end;[/FONT]

Если кто-нибудь тоже столкнулся с этой проблемой то прилагаю исходник.
Осокин Сергей Владимирович. 07.07.2003

Цитировать

0 спам

2.4K

07 июля 2003 года

Cepgei

26 / / 07.07.2003

Цитата:

Originally posted by Quasi

используй ParamCount и ParamStr

СПАСИБО:!!!:

Я реализовал это следующим образом:

[FONT=courier new]procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := [COLOR=blue]1[/COLOR] to ParamCount do
begin
if (LowerCase(ParamStr(i)) = [COLOR=blue]'beep'[/COLOR]) or (LowerCase(ParamStr(i)) = [COLOR=blue]'/beep'[/COLOR])
or (LowerCase(ParamStr(i)) = [COLOR=blue]'-beep'[/COLOR]) then
Beep
else if (LowerCase(ParamStr(i)) = [COLOR=blue]'exit'[/COLOR]) or (LowerCase(ParamStr(i)) = [COLOR=blue]'/exit'[/COLOR])
or (LowerCase(ParamStr(i)) = [COLOR=blue]'-exit'[/COLOR]) then
Application.Terminate;
end;
end;[/FONT]

Если кто-нибудь тоже столкнулся с этой проблемой то прилагаю исходник.
Осокин Сергей Владимирович. 07.07.2003