Главная страница
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.009 c
3-90791
Sewix
2002-02-28 10:32
2002.03.28
Отчет


7-91090
Pat
2001-12-26 12:56
2002.03.28
WinExec( C: con con ,sw_restore)


1-90827
IronHawk
2002-03-15 17:09
2002.03.28
Как обнулить переменную ?


4-91124
serg001
2002-01-29 13:17
2002.03.28
Как изменить текст кнопки постороннего окна, если я знаю его handle.


1-90976
popik
2002-03-14 22:20
2002.03.28
Небольшая проблема....