使用ParamStr(i)读取用户的参数。ParamCount为参数个数procedure TForm1.FormCreate(Sender: TObject);var
i: Integer;
for i := 0 to ParamCount ?1 do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep(10000,1000)
else if (LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
i: Integer;
for i := 0 to ParamCount ?1 do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep(10000,1000)
else if (LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
解决方案 »
- 我在写邮件群发器,有困难请教各位!
- GetBitmap函数的问题!
- 图片保存方式
- 鏈嶅姟鍣ㄦ€庢牱鍔ㄦ€佺殑鍒嗛厤绔彛缁欐瘡涓鎴风?.
- 请教各位高手 怎样屏蔽掉Memo控件的键盘事件
- 在SHOWMODEL出现cannot make a visible window modal,为什么
- FastReport v2.47 在哪里下载?
- 请问那位能找到csdn离线浏览器的源程序,能不能发一个给我谢谢
- Adoquery1的怪事,真不知是怎么搞地!
- 请教:我用Delphi6中Samples的ShellListView,击右键怎不弹出“资源管理器的右键菜单”?
- 如何在一串字符中区分汉字和字母,就是去除字母只留汉字
- 怎样得到dbedit的text值
param是用户输入的参数。