Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Вниз

Как узнатьс какими параметрами была запущена программа   Найти похожие ветки 

← →
skovorodka   (2002-03-17 10:56) [0]

с праметрами /x -x x показывать разные формы

---

← →
SDS   (2002-03-17 11:22) [1]

function ParamStr(Index: Integer): string;
Пример

procedure TForm1.FormCreate(Sender: TObject);

var
i: Integer;
for i := 0 to ParamCount – 1 do
begin
if LowerCase(ParamStr(i)) = "beep" then
Beep(10000,1000)
else if (LowerCase(ParamStr(i)) = "exit" then
Application.Terminate;
end;
end;



---

← →
Malder   (2002-03-17 11:33) [2]

Если непонятно, то в предыдущем примере проверялись все параметры. Если среди них встречался с названием "beep" - звучал сигнал. Если встречался параметр "exit" - то выход, не проверяя оставшиеся параметры. Только хочу одно добавить - параметры разделяются пробелами. Никаких "-". То есть, если параметр на запуск "-x" , то и ловить надо тоже:
LowerCase(ParamStr(i)) = "-x"

P.S. Ну а вдруг человеку непонятно =)

---

← →
Anatoly Podgoretsky   (2002-03-17 13:03) [3]

Проблема с чем, со считывание параметров или их интерпритацией?

---

← →
skovorodka   (2002-03-17 13:42) [4]

Спасибо, понятно.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c