Command 程序示例,可以带参数运行

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航