转自://http://bbs.csdn.net/topics/391070266
一、三个形式(变体)
1、function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet; IgnoreCase: Boolean): Boolean; overload; $[SysUtils.pas2、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”字符(命令行)时,(忽略大小写)返回真。