作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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.

相关软件：