Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Добавить данные в EXE файл и получить их
   Категория: Файловая система
  Создание ярлыка на Рабочем столе
   Категория: Приложение
  Поставить пароль на Paradox
   Категория: Базы данных
  Упаковка таблиц в BDE
   Категория: Базы данных
  Корректное колесико мыши
   Категория: Приложение
  Показать удаленные записи в DBase
   Категория: Базы данных

Delphi - Справочник: FindCmdLineSwitch

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 FindCmdLineSwitch
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;
Функция (Unit SysUtils)
Определяет, был передан некоторый параметр выключатель
Описание:
Функция FindCmdLineSwitch просматривает командную строку (программа + параметры испольльзуются для вызова текущей программы) для данного параметра выключателя.

Выключатели - дополнительные параметры, предустановленные:

/ для Windows - для Linux

но может быть определен в SwitchChars в 3 Версии функции.

SwitchValue следует за этим префиксным символом, и является значением просмотриваемым в командной строке этой функцией.

Параметр IgnoreCase в 2, 3 Версиях функции определяет, игнорирует ли просмотр регистр SwitchValue. Значение по умолчанию Истинно.
Пример кода: Поиск параметров программы 3-х выключателей

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 filesBorlandDelphi7ProjectsProject1.exe" /def abc /ghi
3 параметра
abc НЕ найден
def найден
ghi найден

  << Вернуться