[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    --------------------------------------------------------------------------------
    Most command line programs and some Windows programs has the ability to
    look for and handle parameters passed to it such as /? /HELP /Q. If you
    want to add the same capability to your Delphi programs, you can start
    with a function like this:

    program cmdline;

    uses
      SysUtils;

    function CmdLineParamFound(
      sParamName : String ) : Boolean;
    const
      c_token = '/';
    var
      i     : integer;
      sTemp : string;
    begin
      result := False;

      for i := 1 to ParamCount do
      begin
        sTemp := ParamStr( i );
        if( c_token = sTemp[ 1 ] )then
        begin
          if( ( c_token +
                UpperCase( sParamName ) ) =
                  UpperCase( sTemp ) )then
          begin
            result := True;
            exit;
          end;
        end;
      end;
    end;

    begin
      if( CmdLineParamFound( 'HELP' ) )then
      begin
        //
        // display help here...
        //
      end;
    end.

    If you need more help, look up ParamStr() and ParamCount functions in
    your help files.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]