FindCmdLineSwitch

转自：//http://bbs.csdn.net/topics/391070266

一、三个形式（变体）

1、function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet; IgnoreCase: Boolean): Boolean; overload; $[SysUtils.pas
2、function FindCmdLineSwitch(const Switch: string): Boolean; overload; $[SysUtils.pas
3、function FindCmdLineSwitch(const Switch: string; IgnoreCase: Boolean): Boolean; overload; $[SysUtils.pas

二、函数功能
1、FindCmdLineSwitch 决定Switch参数怎样作为命令行参数传递到应用程序。

三、参数功能
1、Switch 指定命令字符串
2、Chars  指出哪个字符为命令分隔符（通常是-/）。
             SwitchChars = ['/','-']; // Windows下默认 
             SwitchChars = ['-'];     // Linux  下默认 
3、IgnoreCase 参数为False则表明Switch参数必须完全相同（区分大小写），否则忽略大小写 
 

四、实例
1、Exanple.exe程序，通过Dos命令调用它时： Exanple.exe -AAA
2、在Exanple.exe程序，
   （1）调用Exanple.exe -AAA，FindCmdLineSwitch('AAA')=True；
   （2）调用Exanple.exe -BBB，FindCmdLineSwitch('AAA')=False；

五、楼主
function Install: Boolean;
begin
  Result := FindCmdLineSwitch('INSTALL',['-','\','/'], True) or
            FindCmdLineSwitch('UNINSTALL',['-','\','/'], True);
end;

该函数功能:调用程序的Dos命令行中有“INSTALL”或“UNINSTALL”字符（命令行）时，（忽略大小写）返回真。