[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.

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