COMMAND program example, can be run with parameters

Program SoftInfo;

Uses Forms, Windows, Dialogs, Shellapi, INIFILES, SYSUTILS;

{$ R * .res} procedure install (); begin Messagedlg ('install', mtwarning, [mbok], 0);

Procedure uninstall (); var inivalue, inifile, xmlfile: string; productId: integer; begin message, [mbok], 0);

Var paramname: string; begin application.initialize;

If paramcount> 0 Then paramname: = LowerCase (paramname = '- install') or (paramname = ') or (paramname =') THEN INSTALL (); if (paramname = ' Uninstall ') or (paramname =' - uninstall '). ")..

/// run example

SoftInfo.exe -install