Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
1-90868
Juckser
2002-03-05 20:53
2002.03.28
Как сделать, чтобы при открытии Wave-файла запускалась моя программа, и MediaPlayer в ней, воспроизвел этот файл?


1-90832
Denvor
2002-03-15 21:45
2002.03.28
Excel2000


3-90796
Igor_
2002-03-04 14:34
2002.03.28
Excel ->> InterBase


6-91024
SineD
2001-12-28 15:22
2002.03.28
Как отловить подключение ко всем портам ?


1-90895
Света
2002-03-18 10:06
2002.03.28
Выход из цикла