Описание

1 function FindCmdLineSwitch ( const SwitchValue : string ) : Boolean;
2 function FindCmdLineSwitch ( const SwitchValue : string; IgnoreCase : Boolean ) : Boolean;
3 function FindCmdLineSwitch ( const SwitchValue : string; SwitchChars : TSysCharSet; IgnoreCase : Boolean ) : Boolean;

Функция FindCmdLineSwitch просматривает командную строку (программа + параметры испольльзуются для вызова текущей программы) для данного параметра выключателя.
Выключатели - дополнительные параметры, предустановленные:
/ для Windows - для Linux
но может быть определен в SwitchChars в 3 Версии функции.
SwitchValue следует за этим префиксным символом, и является значением просмотриваемым в командной строке этой функцией.
Параметр IgnoreCase в 2, 3 Версиях функции определяет, игнорирует ли просмотр регистр SwitchValue. Значение по умолчанию Истинно.

Пример кода

begin
// Перед выполнением этого кода, используйте опцию меню Run/parameters
// для установки следующих параметров командной строки: /def abc /ghi
ShowMessage(CmdLine);     // Показ выполняемой команды + параметры
// Сколько параметров было передано?
ShowMessage(IntToStr(ParamCount)+' параметров');
// Сканирование на параметры parm1, parm2 и parm3
if FindCmdLineSwitch('abc')
then ShowMessage('abc найден')
else ShowMessage('abc НЕ найден');
if FindCmdLineSwitch('def')
then ShowMessage('def найден')
else ShowMessage('def НЕ найден');
if FindCmdLineSwitch('ghi')
then ShowMessage('ghi найден')
else ShowMessage('ghi НЕ найден');
end;

"C:\Program files\Borland\Delphi7\Projects\Project1.exe" /def abc /ghi
3 параметра
abc НЕ найден
def найден
ghi найден

Примечание