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.