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

最新推荐文章于 2023-09-19 22:40:14 发布

LuckyJan

最新推荐文章于 2023-09-19 22:40:14 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi基础文章标签： command integer string forms windows

本文链接：https://blog.youkuaiyun.com/LuckyJan/article/details/98343

Delphi基础专栏收录该内容

43 篇文章

订阅专栏

该博客展示了一个软件信息程序代码，使用了Forms、Windows等单元。代码包含安装和卸载两个过程，通过命令行参数判断执行相应操作，如输入'-install'执行安装，输入'-uninstall'执行卸载，并给出了运行示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.

/////////////////////////////////////////////////// 运行示例 ////////////////////////////////

softInfo.exe -install