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 rgbtohsb

Delphi 2009 之 tcategorypanelgroup[5]: headerstyle

Delphi winapi: isiconic、iszoomed - 分别判断窗口是否已最小化、最大化

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi 获取 设置文件时间

Delphi 用dll实现插件的简单演示

Delphi 关于access的日期类型字段比较的一点认识

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi 如何把类中的方法做参数

Delphi xe2 idhttp 获取utf-8编码中文网页

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

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