? 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.