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 开发64位应用程序使用windows api的注意事项

Delphi 窗体不可用

Delphi-xe5-开发 android uri简介

Delphi 根据字符串找到函数并执行

Delphi 字幕下载单元subdownload.pas

移植Delphi7的tclientsocket,tserversocket

Delphi 设置webbrowser 代理服务器 与 useragent

Delphi arp攻击代码

Delphi 简单的英文数字字符串加密解密函数（不支持中文）

Delphi读取radiogroup选中按钮的string文本

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

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