Текущий архив: 2002.03.28;
Скачать: CL | DM;
Вниз
Как узнатьс какими параметрами была запущена программа Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
