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