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.