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 xe可执行文件上启用dep和aslr

Delphi 实现程序放放多个进程条

Delphi memo1删除前n行

Delphi 强迫将半型英数字转换成全型英数字

Delphi xe5 使用 android 内置函数几个小测试

Delphi combobox1dropdown 生成动态下拉列表

减小Delphi xe5编译出来的程序体积

Delphi 锁定系统解锁系统

Delphi Delphi写的一个上位机

Delphi 文件夹拷贝子文件及文件夹

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

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