Command 程序示例，可以带参数运行

program softInfo;

uses
  Forms,
   Windows,  Dialogs,  shellapi,  inifiles,  SysUtils ;

{$R *.res}
   procedure install();
   begin
       MessageDlg('install',mtWarning,[mbOK],0) ;
   end;

   procedure uninstall();
   var iniValue,iniFile,xmlFile:string; productID:integer;
   begin
       MessageDlg('uninstall',mtWarning,[mbOK],0) ;
   end;

var
   paramName:string;
begin
   Application.Initialize;

   if ParamCount > 0 then paramName:=LowerCase(ParamStr(1));
   if (paramName='install') or (paramName='-install')  or (paramName='') then install();
   if (paramName='uninstall') or (paramName='-uninstall') then uninstall();
 
   Application.Run;
end.

///////////////////////////////////////////////////  运行示例 ////////////////////////////////

softInfo.exe -install