| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнатьс какими параметрами была запущена программа
skovorodka © (2002-03-17 10:56:00)с праметрами /x -x x показывать разные формы
skovorodka (2002-03-17 13:42:00) [1]Спасибо, понятно.
Anatoly Podgoretsky (2002-03-17 13:03:00) [2]Проблема с чем, со считывание параметров или их интерпритацией?
Malder (2002-03-17 11:33:00) [3]Если непонятно, то в предыдущем примере проверялись все параметры. Если среди них встречался с названием "beep" - звучал сигнал. Если встречался параметр "exit" - то выход, не проверяя оставшиеся параметры. Только хочу одно добавить - параметры разделяются пробелами. Никаких "-". То есть, если параметр на запуск "-x" , то и ловить надо тоже:
LowerCase(ParamStr(i)) = "-x"
P.S. Ну а вдруг человеку непонятно =)
SDS (2002-03-17 11:22:00) [4]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;
| |
