delphi程序支持外部参数

本文整理自网络，侵删。

 procedure TForm1.FormCreate(Sender: TObject);

var
i: Integer;
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
else if LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end; 
 

相关阅读 >>

Delphi 网站后台扫描例子

Delphi使用api实现模拟按键

Delphi利用系统环境变量获取常用系统目录

Delphi 生成不重复数字随机码

Delphi 根据注册表信息判断程序是否安装

Delphi 判断文件是否被占用

Delphi��image存入读取mysql数据库

Delphi xe 使用savestate保存firemonkey状态的示例

Delphi 掌控pagecontrol中的右上方的左右箭头事件

Delphi 获取文件大小根据显示gb mb kb b

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi程序支持外部参数