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.
